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ANTI-ERREURS 30 


3 
MUSIQUES 


4 
MOTS CROISES 


6 mois dans les kiosques et il est offert aux abon- 
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RELIEFS MATHEMATIQUES 


CPC est une publication du 
@ groupe de presse FAUREZ- 
F MELLET 














Directeur de publication 

Sylvio FAUREZ 

Rédacteur en chef 

Olivier SAOLETTI 

Rédaction 

‘Catherine VIARD 
Correspondants 

Marseille : Karine ELGHOZI 
Paris : Anne-Marie THOMAZEAU 
Secrétaire de rédaction 

Florence MELLET 

Rewriter 

Isabelle HALBERT 

Directeur de fabrication 
Edmond COUDERT 

Maquette 

Jean-Luc AULNETTE - 
Secrétariat - Abonnements 
Catherine FAUREZ - Tél. 99.52.98.11 
Relations extérieures-Promotion 
S. FAUREZ 





Administration - Diffusion 
Editions SORACOM 

La Haïe de Pan - 35170 BRUZ 
RCS Rennes B319 816 302 
CCP Rennes 794.17V 

Tél. 99.52.98.11 + 

Télex SORMHZ 741.042 F 
Serveur 3615 MHZ 





Vente au réseau exclusivement 

B.E.P. 5, rue du Fbg Montmartre — 75009 PARIS 
C. CHOUARD Chef des ventes 

Tél. 1.47.70.06.71 





Régie publicitaire 
IZARD CREATION - 15, rue St-Melaine 
35000 RENNES - Tél. 99.38.95.33 


AMSTRAD est une marque déposée. 
CPC est une revue mensuelle totalement indépen- 


ww? 


dante d'AMSTRAD GB et D'AMSTRAD FRAN- 
CE: 


Les noms, prénoms et adresses de nos abonnés sont 
communiqués à nos services internes du groupe, 
ainsi qu'aux organismes liés contractuellement 
pour le routage. Les informations peuvent faire 
l'objet d'un droit d'accès et de rectification dans le 
cadre légal. 


Les articles et programmes que nous publions dans 
ce numéro bénéficient, pour une grande part, du 
droit d'auteur. De ce fait, ils ne peuvent être imi- 
tés, contrefaits, copiés par quelque procédé que ce 
soit, même partiellement sans l'autorisation écrite 
de la Société SORACOM et de l'auteur concerné. 
Les opinions exprimées n'engagent que la respon- 
sabilité de leurs auteurs. Les différents montages 
présentés ne peuvent être réalisés que dans un but 
privé ou scientifique mais non commercial. Ces ré- 
serves s'appliquent également aux logiciels publiés 
dans la revue. 


Dépôt légal à parution 
Distribué en Suisse par : 
SEMAPHORE - Tél. 022.54.1 1.95 

























































































































































































ETTEUTS 


Il est difficile de taper un programme 
d’une revue sans commettre d’er- 
reurs ! Quand les erreurs sont signa- 
lées (Syntax error in..., Line does not 
exist in…..), la correction est facile puis- 
que la ligne est indiquée, mais 
lorsqu’au ‘‘point de vue”’ du CPC, le 
programme est correct, il peut en être 
tout autrement pour le lecteur : 

Si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impossi- 
ble de retrouver l’erreur commise, à 
moins de comparer les lignes de votre 
programme avec celles du journal 
mais c’est très long et on risque de pas- 
ser sur une erreur sans la voir. 
C’est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne retrou- 
vez pas Vos erreurs. 

La frappe d’un programme de votre 
journal favori (CPC) terminée, vous 
faites ‘‘RUN’”’ et là, vous corrigez tou- 
tes les erreurs signalées par le CPC en 
vous référant au journal pour compa- 
rer. Si, malgré cela, il ne tourne tou- 
jours pas, suivez cette procédure : 
— sauvez votre programme en ASCII 
grâce à l’instruction : Save ‘‘nom 
prog’’, À. 

Puis, si vous êtes sur K7, rebobinez la 
bande jusqu’au début du fichier ; 
— chargez Anti-Erreurs ; 

— entrez le nom de votre programme 
et insérez le support où il se trouve (K7 
ou disquette). 

Après quelques secondes, les numéros 
de ligne vont défiler. Vous remarque- 
rez qu’à chaque ligne correspond un 
code de 2 lettres sous cette forme : 
>XX< ; c’est le code qui va vous 
permettre de savoir d’où proviennent 
les erreurs. Pour cela, il faut que vous 
compariez les codes du journal à ceux 
de l’écran. Si un code diffère, notez 
sur papier le numéro de ligne qui cor- 
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respond à ce code. Continuez ainsi 
jusqu’à la fin du listage. 

Le défilement terminé, recherchez 
votre programme et corrigez les lignes 
que vous avez notées en comparant 
avec le journal. Faites ‘RUN?’ et 6 
miracle ! ça marche. 

Attention, lors de la frappe du pro- 
gramme à traiter, n’omettez aucun 
caractère (sauf les espaces) car Anti- 
Erreurs les prend en compte et bien 
sûr, ne tapez pas les codes de contrôle. 


ATTENTION : cette nouvelle ver- 
sion n'est pas compatible avec 
l’ancienne. Seuls les programmes 


publiés dans ce numéro possèdent 
un code anti-erreurs correct. 

Les instructions de chargement res- 
tent, elles, inchangées. 





10 HPHEMEMEMEMEMEMEMEMEMEMEMEE LA 


26 ‘ # # LB 
30 ‘ * ANTI - ERREURS # LC 
46 ° # # LD 
50 ‘ + VERSION 2.9 # LE 
66 ‘ # # ?LF 
70" HPHOHPMEMEMPHEMPMEMPMPMPMRERE LG 
8 ?LH 
90 ‘ (c} CPC & 6. NOE 1987 AU 
169 RE 
119 ?RC 
120 ‘ 22)>)2)>}3}322)2>22>)>)235> RD 
139 ‘€ INITIALISATION > RE 
140  LÉKÉCECECEE ELEC LEE CEEEELEEE  DRF 
150 : RG 
166 ON ERROR GOTO 1258 >QD 
170 MODE 2 >HH 
180 DIM G$(23) >6D 


190 FOR 1=6 TO 22:READ 6$:6$(1)=6$: >FR 
NEXT 
uw 3 ù | 

















; £ ee 
266 “ATTENTION LA LIGNE DE DATA CI- >RC 
DESSOUS NE CONTIENT PAS TOUTES LES 
LETTRES DE L'ALPHABET !!! 

210 DATA A,B,C,D,E,F,B,H,J,KL,MN, ?AD 


P, GR TU, V,H, XYZ 
226 ‘ ANTI-BUG FICHIER >RE 
230 IF PEEK(HIMEM+1)=295 THEN 280  >ZD 
249 OPENQUT "CPC" >MA 
250 MEMORY HIMEM-2 >NX 
260 CLOSEOUT JR] 
270 POKE HIMEM+1,255 >PP 
280 DEFINT B-Z >WH 
290 ‘ >TB 


300 BORDER 6: INK 0,1: INK 1,16:PEN 1 DJN 
:PAPER 0 

316 MOVE 0, 16:DRAW 650, 16 >TK 
320 PRINT TAB(27) “ANTI-ERR >GU 


EURS ";CHR$(24); "Version 2,0" 
;CHR$ (24) 
330 MOVE 0,385: DRAM 650, 385 >UJ 


349 LOCATE 24,25:PRINT"CPC REVUE DE ?EV 
S STANDARDS AMSTRAD" 


350 WINDOW 1,680,3,23 ?NL 
360 M$="Realise par Gregory NOE" OH] 
379 F$="" ?XA 
386 FOR I=1 TO LEN(M$) >PU 
390 F$=F$+MIDS (M$, I, 1) PL 
400 LOCATE 70-I,5:PRINT F$ >UL 
416 FOR T=1 TO 199 LG 
426 NEXT T,1 DEF 
430 ‘ RH 


440 HARMONIE DR] 
HHH4 

450 ” >RK 
466 LOCATE 2,1:PRINT"ENTREZ LE NOM >XT 
DU FICHIER : “; 

470 INPUT “",NF$ ?FD 
486 IF NF$="" THEN PRINT CHR$(7):60 >GR 
TO 460 

490 LOCATE 2,3:PRINT" IMPRIMANTE OU }VR 
ECRAN (1/E)?" 

900 R$=" "I UHILE R$="":RS=UPPERS (INK ?NK 
EY$) :WEND 

910 IF R$="I" THEN CA=8:PRINT"BRANC >XD 
HEZ-LA..." ELSE 549 

920 PRINT#B,CHR$(27);"!";CHR$(20)  }AR 


339 GOTO 560 >F 
940 IF R$="E" THEN CA=0:G0TO 560  }YQ 
990 GOTO 500 >1B 


960 CLS:LOCATE 2,3:PRINT'TANT QUE L >6R 
E LISTAGE N'EST PAS TERMINE" 

974 LOCATE 2,5:PRINT®NE PAS ARRETER JW 
LE MAGNETOPHONE OU NE" 

980 LOCATE 2,7:PRINT"PAS SORTIR LA ?TL 
DISQUETTE" 

970 LOCATE 2,10:PRINT"PRESSEZ UNE T >HH 
OUCHE POUR LA LECTURE" 


600 CALL &BBO5 LH 
619 >RH 
620 ‘ KEKECECEEECLEECELCELEEÉE >RJ 











630 ‘< TRAITEMENT DU FICHIER > >RK 
840 ‘ 22»»)>»)2DD)PDDD >TA 
650 ‘ TE 
bbû DPENIN “!"4#NF$ 3LF 
670 CLS:PRINTTRAITEMENT EN COURS. JR 
680 IF LEN(A$)=255 THEN A$="":LINE >VW 
INPUT#9,B$:G0TO 1160 

490 LINE INPUT#9,B$:A$-B$ JUE 
700 IF CA<8 THEN GOSUB 1310 VF 
710 IF INKEY(66)=9 THEN STOP JUN 
72 ‘ >Rk 
73 ‘CALCUL DE LA CLE DE CONTRO >TA 
LE 

74 ‘ TE 
750 A=0:FL6=0 MB 
760 FOR I=1 TO LEN(AS) >PH 
770 L$=MIDS (AS, I, 1) >MU 


780 IF L$=CHR$(34) AND FLG=1 THEN F PC 
LG=0:G60T0 840 

790 IF L$=CHR$(34) AND FLG=0 THEN F >PD 
LG=1:60T0 840 

890 IF L$=CHR$(32) AND FLG<>1 THEN >CX 
850 

819 IF L$=CHR$(39) AND FLG=9 THEN 8 )CA 
6ô 


860 PTE 
870 CH$=STRS (A) >CC 
880 CH$=RIGHTS (CHS, LEN(CHS)-1) NYC 
890 L=LEN(CHS) :L2=LEN(CHS) /2 >XA 
900 A=VAL(LEFTS (CH$, L2) ) >TY 
910 C=INT (A/23) >4H 
920 P=A- (C#23) LI 
930 C$=6$(P) »XC 
940 A=VAL (RIGHTS (CH$,L-L2) ) > 
950 C=INT (A/23) :P=A- (C423) >UT 
960 C$=C$+6$ (P) >TD 
970 ‘ >TG 
980 FOR I=1 T0 6 Mk 
990 LS=MIDS (A$, 1, 1) MY 
1900 IF L$<"@" OR L$>"9" THEN 1930 DK] 
1910 LIS=LIS+L$ >XF 
1920 NEXT KE 


1930 WMS="":FOR 1=1 TO LEN(AS):IF À DEK 
SC(MIDS (AS, 1,1))€32 THEN VMS=VM$+" 
“ ELSE UVMS=VMS+MIDS (AS, 1,1) 


1040 NEXT I:B$=VM$ >MH 
1959 ‘ >\J 
1666 IF CA<>B THEN 1076 ELSE 1998  >VT 
1679 PRINT LI$;TAB(19) ">";C$ WI 
1980 LI$="":G0TO 1160 ND 


1090 LI$="":PRINTACA, LEFTS(B$,95):;T >QM 
AB(57) ">":C$ 


1100 IF LEN(B$)<55 THEN 1160 UT 
1110 FG=1 CG 
1120 B$=MID$ (B$, 56, LEN(B$) } >UB 


1130 PRINTHCA,LEFTS (B$, 55) >VN 
1149 IF FG=1 AND CA>8 THEN F6=0:60 >VB 

SUB 1310:G0T0 1150 

1150 GDTO 1109 LG 
1169 IF EOF=-1 THEN CLOSEIN ELSE 60 >HD 
TO 686 

1170 IF CA=0 THEN CALL 8&BB03: PRINT 
TAB(56) CHR$ (24); "UNE TOUCHE... ";CH 

R$(24):CALL &BB0S 

1189 CLS:PRINT'MAINTENANT RECHARGEZ 
“sNF$;" ET CORRIGEZ LES LIGNES QUE 
VOUS AVEZ NOTEES. ." 


>RJ 


JC 


1190 END 2VK 
1200 * ?XF 
1219 ‘ ÉECECEE CELL ELEC A ELLES KG 
1229 ‘{ TRAITEMENTS DES ERREURS > >XH 
1239 ‘ LÉCÉCCL EEE CARE ELELEREEE KT 
1249 ‘ >XK 


1250 IF ERR=29 THEN CLS:PRINT CHR$( >YC 
7); CHR$ (24); "FICHIER NON AGCII";CHR 
$(24):END ELSE CONT 


1260 ?YB 
1270 * LRAKCECEEL EL CEE CELLES DYC 
1289 ‘{  ATTENTE TOUCHE... > D 
1290 ‘ LECEEELE LE CELE LEE ELELEE VE 
1306 >\G 
1310 COM=COM+i:IF COM>19 THEN CALL AF 
&BBOS: PRINT TAB(50) "UNE TOUCHE..." 
:CALL &BB05: CLS: COM=1 

1320 RETURN >EKe 


———_—_—_—_—_—_—_——…—…—n 


820 IF FLG=1 THEN 849 ?ND 
830 L$=UPPERS (L$) MC. 
840 A=A+ASC (L$)+I LU 
890 NEXT I PB 
128 OO \\ #RD 
13% ‘ \\ "Computer Disco" \\ >RE 
148 : \\ \\ GfF 
156 ‘ //Concu et realise par// RG 
16ÿ ‘* // Rodolphe DEJEUNES // RH 
176 ‘ // #1 2RJ 
186 ‘ Z/1 411114111114 iif ii RE 
196 TA 


240 MODE 1:LOCATE 12.16:PRINT CHR :VG 

34)+"Computer Disco"+CHR$ (34) :LOCAT 

E 14,13:PRINT CHR$(164)+" 1986 - KR. 

DEJEUNES" 

256 DATA 1.1,3,4,5,4,3,1,6,1,3,4,5, >üF 

ANSE 

266 DIM n(32):RESTORE 250:FOR i=i T 327] 
32:READ n(i):NEXT i 

278 DATA 179,159,142,127,119,106,95 : 

.89,8ù 

286 DIM q(19):RESTORE 276:F0R i=i T >XE 

0 9:READ q{i):NEXT i 

299 DATA 5,3,1,2,9,3,1,2 

366 DIM t(16):RESTORE 296:F0R i=i T >YZ 

D B:READ t(ib:NEXT i 

314 DATA 1.2,8,1,1,2,3,2,1,2,3.1,1, ?0J 

à 

326 DIM b(32}:RESTORE 316:F0R i=i T :YE 

0 32:READ b{i):NEXT i 


336 DATA 1911.30,0.1.6, 10,0,5 :VA 
349 DIM h(4i.v(4):RESTORE 336:FOR i JA 
=1 TO 4:READ hti).vGi):NEXT i 

350 ENV 1,1,19,1,15,-1,2:ENV 2,8.-2 oRZ 
AHENV 3,1,19,1,15,-1.4ENV 4,3,5.1 
15,-1,11ENV 5,1,13,1,3,-1,2,10,-1, 
BsENV 6,1,15,1,3.0,1,15.-1.12 


368 TEM=18 HA 
376 FOR i=i TO 9:S0UND 7.q(1),5.6:N ?GE 
EXT : 


386 FOR i=i TO 32:S0UND 4,h(bli)).t >OX 
em, d.bi),.vib{i)):GOUND 3.q(t(1}). 
tem; 2.4: SOUND &.0,tem/2,w:NEXI 1 
390 FOR i=1 TO 8 

496 a=git(i)) 

419 IF a=179 THEN g(4)=134 ELSE ai4 >EM 
}=127 

426 a=ax? 

36 FOR j=1 TO 32 
446 SOUND 34,a.tem/2,6,5:SOUND 24.h >H 
{bijh},tem,@,bti)..vibtj)):GOUND 1, 
git(i)n(j)-1}. tem. 6#S6N(n(j} ) :S0 
UND 2,a/2,tem/2,6.5 

456 NEXT i,i 

466 MODE 2 } 
478 IF z=1 THEN FOR i=1 T0 8:SOUND >6J 
la(tii)n(i)-1), tem, à,6#SGNin(i)i: 
NEXT i:END 

486 FOR i=1 TO 16:SOUND 1.g(t(1)+n >HA 


1-1) ,.tem.4,6#56GN(n(i}):SOUND 6,6,.t 

em, G:NEXT : 

496 FOR j=1 TO 2:FOR i=i TO 3Z:SOUN :XD. 
D 4.h{bli)),tem.ë.biii,,v(b(1)}:S0U 
ND 3,9.tem.G:NEXT i.j 

996 RESTORE 554:FO0R i=1 TO 63:READ 
td: SOUND 3.h(ti.dxtem,@.t,.viti:S0 
UND 4,6,d#tem,@:NEXT 

514 FOR i=i TO 32:S0UND 4,h{b(i}).t A7 
em.4,b(1),,v(b(i)):SOUND 3,6, tem,v: 
NEXT 

920 FOR i=1 TD 16:SOUND i.aitiiiint DC 
ii-1), tem, 9, 6*SGN(n(i)):SOUND 4,qit 
{i}tn(i}-1)/2, tem, 0, &SGN in (1) ) : SOU 

ND 2,0, tem, 4:NEXT 


?IM 


530 IF 2=0 THEN 2=1:6070 39% y 
540 END TC 
950 DATA 1,3,1,1,1,3.1,1,1,3.1,1  >X6 
S6ù DATA 1,1,3,1,1,1,3,1 >0F 
370 DATA 1,3,1,1,1,3,1,1,1.3.1,1 DK] 
580 DATA 1,1,3,1,1,1,3,1 >OH 
990 DATA 1,3,1,1,1,3h4lala%tt XL 
&oû DATA 1,1,3,1,1,1,3,1 >fA 
&19 DATA 1,3,1,1,3,4,14311,3,4,1, EX 
RAS PS DRIS A AUS D PRE PRO OR 

420 DATA 1,1.5,2,0.5,3,1,1,1,1,1.5, ?MV 
2,0.5,3,1,1,1 


636 DATA 1,0.5,1,1,1,0.5,1,1,1,0.5, AV 
2,0.5,2,1,2,1,2,1,5,4,0.5@ 


140 
119 f AMAR RU LUE RER 
126 © 

138 ‘ \\"La soupe aux choux"ii 
144 \\ \i 
156 
1ëë 
i78 
igù : 
196 


\i 





269 MODE 1:LOCATE 14.1G:FRINT CHR#C 34 


34j+"La soupe aux choux"+CHR$ {34} il 
OCATE 19.13:FRINT'"'Adapte par R.DEJE 
UNES" 


218 ENV 1.1.15.1.10.-1,1.2,2,1,9.-1 ; 


+ 


220 ENT -1.1,1.1,1.-1.1 


230 ENV 2,3,5,1,2.-1,6,13,-i, 13 ENT > 


2.1.4,1.2,-2,1 

244 READ c.n.i.a 

250 T=T+1:1F T=iû6 THEN MODE 2 
266 IF c=à THEN END 


276 IF c=i OR c=33 THEN SOUND cn. i :JX 


.9,1,1,a ELSE SOUND cn. i,6,2,2 
286 EOTO 244 


290 DATA 1.426.24,6,1,851,24.6,1,42 : 


6,24,0,1.851.24.0,1,426.24.0,1.851. 
24,0,1,426,24,6,1.851,24,4 





r= 


360 DATA 33.426,24.0,12,71.12,4,4,8 DK 


0,12,0,33,851,24,0,12,89.12,0,4.95, 
12,9,33,426. 24,0, 12, 106, 24,0 

314 DATA 33,851,24,0,12,106.12.0,4, 
119,12,0,23,426, 24,0, 12, 106, 24,033 
.851.24,0,12, 106. 12.0,4,119,12,0,33 
.426,24,0,17.106,12,0,4.95,12.0,33, 
851.24,0, 12,89, 12.0, 4,80, 12,0 

126 DATA 33,426,24,0,12,71.12.0,4,8 
0,12,0,33,851,24,0,12,89,12,0,4,95, 
12,0,33,426, 24,0, 12, 1û6, 24,0 

330 DATA 33,851, 24,0, 12,106, 12,0,4, 
89,12,0,33,284,24.0, 12,95, 12, 0,4, 10 
&,12,0,33, 568, 24,0, 12,95,12,0, 4,119 
,12,6,33,284,24,0,12,142,48.0, 1,568 
,24,9 


340 DATA 33,426,24,0,12,71.12,0,4,8 > 


0,12,0,33,851,24,0,12,89.12,0,4,95, 
12,0,33,426, 24,0, 12, 1û6, 24, 0 

350 DATA 33,851,24,0, 12, 106. 12.0,4, 
119,12,0,33,426, 24,0, 12, 106, 24,0, 33 
.851,24,0, 12,106, 12,0,4,119,12,0,33 
.426,24,9,12, 106, 12,0,4,95,12,0,33, 
851,24,0,12,89,12.0,4,80,12,0 


360 DATA 33,426,24,0,12,71,12,0,4,8 


0,12,0,33,851,24,0,12,89,12,0,4,95, 
12,0,33,426, 24,6, 12, 106, 24,0 

370 DATA 33,851, 24,0,12, 106, 12.0,4, 
89,12,6,33,284,24,0, 12,95, 12, 0,4, 10 
6,12,0,33,568, 24,0, 12,95, 12,0,4,119 
,12,0,33,284,24,0, 12, 142,48,0, 1,568 


W 


> 


DM 


EUR 


VE 


RQ 


24,8 
380 DATA 
.536,24,0.12,134.12,0,4,119.12.0,33 
,268,24.0,12,106.12.4,4,95,12, 0,33, 
526, 24.0, 12,89,24,0 

376 DATA 23.358. 24.0,12,89. 12. 
0,12,0,33,716, 24,0, 12,71,24,0, 33,35 
8,24,0,12.71,12.0.4.67,12,0,33.716. 
24,0.12.60.24,6 

496 DATA 33,268, 24,0, 12,134, 24,033 
.536,24,0,12,134,12.0,4,119.12.0,33 
.268.24.0,17,106.12.0,4,95,12.0,33, 
536, 24,0,12,89.48,0, 1.478, 24,0,33,9 
S6,24,0,12,119,24,0,33.478, 24.017, 
119.48.0, 1.956, 24, à 

418 DATA 
.536,24,0,12,134,12,0,4,119,12,0,33 
,268,24,0,12,106,12,0,4,95.12,0,33, 
3,24,0,12,89,74,0 

420 DATA 33,358. 24,0, 12,89, 12,0,4,8 
8,12,0,33,716,24,0,12,71,24,0,33.35 
8.24,0,12,71,12,6,4,67,12,0,33,716, 
24,0,12.60,24,9 

430 DATA 33.426, 24.0,12.67,12,0,4.7 
1,12.0,33,851,24,0. 12,80, 12.0, 4,89, 
12,0,33,426, 24,0, 12,95, 12,0,4,89,12 
.à,33.851,24,0,12.80,12.0,4,95,12,0 
,33,284,24.0,12,71,96.0, 1.568, 24,6, 
1,284. 24, 0,1,568, 24,0 

44ù DATA 33,426, 24,0.12.71.12,0.4,8 
0,12,6,33,851,24,0,12.89,12,0,4,95, 
12,0,33,426, 24,0. 12, 1ûb, 24,0 

45ù DATA 33,851,24,0.12,106,12.0,4, 
119,12.0,33,426, 24,0, 12, 106, 24,0, 33 
.851,24,0,12,106,12.0,4,119,12.0,33 
.426.24,0,12,106,12,0,4,95.12,0.33, 
851.24,0,12.89. 12.0, 4,80, 12,0 

460 DATA 33,426, 24,0,12,71,12,0,4,8 
0,12,0,33,851,24,0,12,89,12.0,4,95, 
12,0.33,426, 24,0, 12, 106, 24,0 

476 DATA 33,851,24,0,12,106.12,0,4, 
89,12,0,33, 284, 24,0, 12,95, 12,0, 4, 10 
6,12,0,33,568, 24,0, 12,95,12,9,4,119 
.12,0,33,284,24,0,12,142,48,0, 1.568 
24,0 


480 DATA 33.426,24,0,12,71,12,8.4,8 ; 


0,12,0,33,851,24,0,12,89,12,0,4,95, 
12,0,33,426, 24,0, 12, 106, 24,0 

49ù DATA 33,851,24,0,12,106,12,0,4, 
119,12,0,33.426, 24,0, 12, 106,24, 0,33 
,851,24,0,12,186,12,9,4,119,12,0,33 
,426,24,0,12,106,12,0,4,95,12,0,33. 
851,24,0,12.89,12,0,4,80,12,0 

5û0 DATA 33,426, 24,0,12,71,12.0,4,8 
0,12,0,33,851,24,0,12,89,12,0,4,95. 
12,0,33,426, 24,0, 12, 106, 24,0 

519 DATA 33,851,24,0,12, 106, 12,0,4, 
89,12,0,33,284, 24,0, 12,95, 12,0, 4, 10 


er 5 = 


33.268,24,6,12,134,24,0,235 ; 


d,4,5 ER 


33,268.24,0,12,134,24,0,53 ; 


HZ 


RU 


NL 


:D0 


3VA 


DT 


v 


FR 


VE 


DM 


RL 








Rodolphe DEJEUNES 


6,12,0,33,568, 24.0, 12,95, 12,0. 4,119 
.12,0,33,284, 24,0, 12, 142,48,6, 1,568 
,24.8 

520 DATA 33.268. 24,0, 12, 134,24,0.33 
.536,24,0,12.134,12,0,4,119,12.0,33 
,268,24,0,12, 106,12,0.4,95,12,0,73, 
536,24, 0, 12.89, 24,0 

530 DATA 33.398, 24,0, 12,89, 12,0.4,8 
0,12,0,33,716,24,0,12,71,24,8,33,35 
8,24,0,12,71,12,0,4.67,12,0,33.718, 
24,0, 12,60, 24,0 

540 DATA 23.268,24,0.12,134,24,0,33 
.536,24,0,12,134,12,0,4,119.12.0,33 
,268,24,8,12,166.12,0,4,95,12,8,33, 
526, 24,0,17,89,48,0, 1.478, 24,0,32,9 
56, 24,0, 12,119,24,0,33.478, 24, 0,12. 
119,48,0, 1.956, 24,0 





996 DATA 33,268,24,6,12,134,24,0,33 1 


.5236,24,6,12,134.12,0,4,119.12,0,33 
,268,24,0,12,166,12,6,4,95.12,0,33, 
J36,24,4,12,89,24,0 


& 


J66 DATA 33,358,24,6,12.89,12.0,4,8 : 


0,12,0,38,716,24,0,12,71,24,0,33,3 
8,24,0,12,71,12,0,4,67,12,0,32,716, 
24,0.12,60, 24,0 

570 DATA 33,426,24,0,12,67,12,0,4,7 
1.12,0,33,851, 24,0, 12,80,12.0, 4.89, 
12.0,23,426, 24,0, 12,95, 12,0. 4,89, 12 
.0,33,851,24,0, 12,80, 12,0, 4,95, 12.0 
.33,284,24,0,12,71,94,0, 1,568, 24,6, 
1,284, 24,0, 1,568, 24,0 

580 DATA 33,424, 24,0,12, 106, 12.04, 
95,12,0,4,89,12,0,4, 106,12,0, 1,851, 
24,0,33,426, 24,0, 12,71, 144,0, 1,851, 
24,0,1.426,24,0,1,851,24.0,1,426,24 
.0,1,851,24,0 

590 DATA 33,478,24,0,12,119,12,0,4, 
196,12,0,4,95,12,0,4,119,12,0, 1,954 
,24,0,33,478,24,0,12,71, 144,0, 1,956 
,24.0,1,478,24,0, 1,956, 24,0, 1. 478, 2 
4,0,1,956, 24,0 

bob DATA 33,426, 24,0, 12, 106, 12,0,4, 
95,12,0,4,89,12.0,4, 1û6,12,9,1,851, 
24,0,33,426, 24,0, 12,71,144,0,1,851. 
24,0,1,424,24,0, 1,851, 24, 0, 1,426. 24 
,1,851,24,6 

&iô DATA 33,478, 24,0,12,119,12,0,4, 
106,12,8,4,95,12,0,4,119,12,0, 1,956 
,24,0,33,478, 24,0,12, 71, 144,6, 1,956 
,24,6,1,478, 24,0, 1,956, 24,0, 1, 478,2 
4,0,1,956, 24,0 

420 DATA 33,426, 24,0,12,71,12,0,4,8 
0,12,0,33,851,24,0,12,89,12,0,4,95, 
12,0,33,426, 24,0, 12, 106, 24,0 

&3à DATA 33,851,24,0, 12,166, 12,0.4, 
89,12,0,33,426, 24,0, 12,95, 12,0, 4, 86 
,12,9,33,851,24,9,12,71,12,0,4,60, 1 
2,0,33,426,24,0, 12,53, 24,0 

440 DATA ,0,0,6 
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| Vous êtes un 

: « fervent 
cruciverbiste ? 
Concoctez vous- 

| même vos grilles et 
imaginez des 
définitions 

| tortueuses sur 8X8 








… carrés. 





1°re option : 
CREER GRILLE 


Avant de jouer sur des grilles, il faut 


_ o° | 
C 99 
\ @ b\L° 2 
\ 4 ace 





\ 





Philippe PERROTTEY 





les créer. Vous pouvez créer jusqu’à 





30 grilles 8 X 8 par fichier. La saisie de 
la grille est automatique (DEL pour 
revenir en arrière), la touche <1 > 
sert à entrer les carrés. Pour les ns 
définitions, respectez la longueur - 19,9) 
maximum simulée par des tirets sinon 
l'affichage de celles-ci sera désordon- Pr 
né. … 

gn 
2° option : JOUER 


VARIABLES PRINCIPALES 


: contient toutes les grilles du fichier 
: contient les lettres trouvées par le joueur dans 


chaque grille 


: contient les définitions de chaque grille 

: nombre de cases pleines dans la grille sélectionnée 
: nombre de grilles dans le fichier 

: numéro de grille sélectionnée 





la grille affichée contiendra les mots 
ou lettres déjà trouvées si vous le ja ‘xuseert#n 
souhaitez, vous pourrez ainsi 2ÿ : MOTS CROISES 
reprendre votre recherche où vous :, : 
l’aviez laissée. Déplacez l'étoile 
clignotante sur une case vide puis 
appuyez sur <RETURN>. Tapez 


46 ‘ Fh PERROTTEY 
SO HN 


LA | ;CHR$(22) ; CHARS () 


LE | 126 PLOT 112,376, 1:DRAWR 416,6: DRAM : 


LC | R 0,-32:DRAWR -416,60:DRAUR 0,32 


LD | 136 n$(1)="JOUER":n$(2)="CREER GRIL : 


LE | LE":n$(3)="CHARGER FICHIER" 


<1> pour entrer un mot horizontal ëë DIM ci$(31,9,9),c2$(31,9,9) ,d$ (3 3EZ | 146 v=19 


ou <2> pour un mot vertical. La 1,17) 
saisie est alors automatique même si 65 DEFINT a-z 


156 FOR i=1 TO 3 


>PH | 166 LOCATE 19-LEN(n$(i))/2, v:PRINT : 
LG | " “enéti) 

LH | 179 y=y+5 

>LJ | 189 NEXT 


199 MODE 6: INK 1,26: INK D, G:INE 2,1 LG | 199 y=19 


des lettres ont déjà été trouvées. Les  7ÿ ‘=====2=--=-2-- 
lettres justes restent, les mauvaises gg : MENU PRINCIPAL 
s’effacent. Usa nee es 
j ‘====7===2=22222 
Dernière option : 4: BORDER 


260 LOCATE 10-LEN(n$ty/5-1) 3/2, y: PA 


CHARGER FICHIER 119 PRINT CHRS(22);CHRS (1): : TAG: MOV MZ | PER 1:PEN 2:PRINT "eng (y/S-1)s tés 


Cette option se passe de commentai- E 132,366, 2:PRINT"MOTS CROISES"::TA FAFER 4:PEN 1 
res. GOFF:LOCATE 5,3:FPRINT MOTS CROISES" 214 ef=INKEVS: IF e$="" THEN 26 








HD 
EE 
+XD 
3LN 


#X4 





?EC 


220 IF e$=CHR$(13) THEN MODE 2:y=y/ 
S-1:0N y GOTO 286, 1070, 1330 

236 IF e$=CHRS(240) THEN y=y-5:ee=5 >0X 
:IF y<i6 THEN y=16:6070 26 ELSE 26 
Ô 

240 IF e$=CHR$ (241) THEN y=y+5:ee=- 
S:1F y>20 THEN y=20:6070 260 ELSE 2 
mr) 

250 GOTO 216 

26h LOCATE 14-LEN(n$ ((y+e8)/5-1))/2 PE 
,ytee:PRINT " "sn$i(ytee)/5-1)" " 


270 GOTO 266 >YH 
289 ‘======= ?TA 
29% ‘ JOUER ?TB 
340 ‘======= >RD 


316 sc=@:CLS:IF ng= THEN MODE O:LO >6X 

CATE 3,12:PRINT"PAS DE FICHIER":FDR 
i=i TO 1600: NEXT:G0TO 106 

320 INPUT'Entrez numero grille sur 
laquelle vous voulez jouer ou [à] 5 
i celle-ci est determinee au h 


asard : ",gn:CLS 

320 IF qn=0 THEN gn=INT(RNDæng)+1  ?BN 
346 IF gnng THEN 320 ND 
350 GOSUB 1750 ?QC 
360 GOSUB 1919 >QB 


370 IF sc=64 THEN WHILE INKEY$="":L 6H 
OCATE 25,25:PRINT"VOUS AVEZ FINI CE 
TTE GRILLE...":FOR t=1 TO 150:NEXT: 
LOCATE 1,25:PRINT CHR$(18)::FOR t=1 

TO 150:NEXT:WEND:CLS:GOTO 928 


389 LOCATE 230,25:PRINT CHR$ (24); "CC ?UB 
OPY]";CHR$(24);" pour arreter" 


S70 ressens ?TC 
460 ‘ TEST CLAVIER RE 
419" 3RF 
429 x=4:y=b YF 
430 LOCATE 2,22: PRINT" 3Y1 


“sLOCATE 2,24: PRINT * 


449 c2$=c2$(qn,x/2-1,y/2-2):IF c2$= >FL 
"4 THEN c2$=" " 

450 e$=INKEY#: IF e$="" THEN LOCATE +QX 
x, Ya PRINT'#":FOR i=1 TO 159:NEXT:LO 

CATE x, y: PRINT c2$:FO0R i=1 TO 156:N 

EXT:60T0 459 

469 IF e$=CHR$(224) THEN CLS:G0T0 9 >DY 

20 

470 IF e$=CHR$(13) AND c2$=" " THEN :CH 
930 

480 IF e$=CHR$(243) THEN LOCATE x,y : 

PRINT c2$:xzx+2:IF x>18 THEN x=18 


490 IF e$=CHR$(242) THEN LOCATE x,y >MB 
:PRINT c2$ix=x-2: IF x<4 THEN x=4 
590 IF e$=CHR$(240) THEN LOCATE x,y >MZ 
PRINT c2$:y=y-2: IF y<b THEN y=b 


910 IF e$=CHR$ (241) THEN LOCATE x,y ?QT 
PRINT c2$:y=y+2:1F y}29 THEN y=20 


924 GOTO 444 ?1B 
939 LOCATE 2,22:PRINT"i - Horizonta >XE 
lement":LOCATE 2,24:PRINT"2 - Verti 
calement" 

940 e$=INKEYS:IF e$="" THEN 549 ?XJ 
599 e=VAL (e$} KE 
969 IF e=1 THEN LOCATE 2,22:PRINT C 3TC 
HR$(24);"1 - Horizontalement";CHR$( 
24);:G0T0 584 

979 IF e=2 THEN LOCATE 2,24:PRINT C >AF 





SERVEUR 
MINITEL 


N'oubliez pas 
36.15 code MHZ 





ta B.A.L. _— un dialogue directavec 
a ré! 

Les petites ananas ouvrent la pos oux 
bonnes. affaires | 


| 


HR$ (24): "2 - Verticalement";CHR$(24 
};:60T0 584 ELSE 549 





580 ON e GOTO 596,750 ?NF 
DD ?TE 
664 ‘ SAISIE HORIZONTALE RG 
0 "7 2RH 
620 e=i:x1=x: x2=x MA 


639 LOCATE x2,y:PRINT CHR$(243):FOR >AL 
i=i TO 150:NEXT:LOCATE x2,y: PRINT" 
“:FOR i=1 TO 159:NEXT 

646 e$=UPPERS$(INKEYS) : IF e$="" THEN FF 
630 

650 e$le)=e$:LOCATE x2,y:PRINT e$le >DX 

) 

b60 x2=x2+2: IF c2$(gn,x2/2-1,y/2-2) 

=CHR$(143) OR x2>18 THEN 699 

670 IF c2$(gn,x2/2-1,y/2-2)€3"" THE >CQ 

N IF c2$(gn, (x2+2)/2-1,y/2-2) €>CHR$ 

(143) OR x2+2<=18 THEN e=e+l:e$(e)= 

c2$ign,x2/2-1,v/2-Z):sc=sc-1:6070 6 

69 ELSE 694 

68à e=e+1:G0T0 630 MC 

699 FOR i=1 TD e 3YC 

706 IF ci$lqn,xi/2-1,v/2-2)£re$(i) A7 
THEN LOCATE xi,y:PRINT" “:GOTO 729 


719 c2$(gn,x1/2-1,y/2-2}=c1$(gn,x1 >XP 
12-1,y/2-2):sc=sc+1 

720 xi=x1+2 ?WA 
730 NEXT ?EF 
749 IF sc=64 THEN 1010 ELSE 390 WZ 





TE ?TC 
76û ‘ SAISIE VERTICALE ?TD 
TD ?TE 
784 e=i:yl=v: v2=v 2MM 
799 LOCATE x,y2:PRINT CHR$(241):FOR AR 


1=i TO 150:NEXT:LOCATE x, v2: PRINT" 
“2:FOR i=i TO 150:NEXT 
800 e$=UPPER$(INKEYS$): IF e$="" THEN FL 
790 
810 ef$le)=e$:LOCATE x,y2:PRINT e$le DV 
} 
820 y2=y2+2:IF c2$(gn,x/2-1,y2/2-2) FD 
=CHR$ (143) DR y2>20 THEN 856 
839 IF c2$(gn,x/2-1,y2/2-2) €3"% THE CC 
N IF c2$(gn,x/2-1, (y2+2)/2-2) €:CHR$ 
(143) OR y2+2<=20 THEN e=eti:e$(e)= 
c2$(gn,x/2-1,y2/2-2):sc=5c-1:60T0 8 


‘| 26 ELSE 850 
840 e=e+i:G60T0 790 MH 
859 FOR i=i TD e >YA 
860 IF ci$gn,x/2-1,y1/2-2)€re$(i) >RP 


THEN LOCATE x,y1:PRINT" “:G60TO 8Bû 


870 c2$(gn,x/2-1,y1/2-2)=ci$(qn,x/ XX 
2-1,y1/2-2):sc=sc+1 
880 yl=yi+2 

899 NEXT ?FC 
900 IF sc=b4 THEN 1916 ELSE 390 WX 


dt hs. “ >TA 
920 ‘ ARRET DU JEU ?TE 
res ee TC 


949 PRINT'"Voulez-vous jouer sur une :VB 
autre grille (O/N) ?" 

950 e$=UPPERS(INKEYS):1F e$<>"D" AN : 
D e${>"N" THEN 950 

960 IF e$="0" THEN 280 
976 CLS:PRINT"Voulez-vous sauver vo : 
s aots trouves dans toutes les gril 
les (O/N) ?" . 

980 e$=UFFERS(INKEVS):IF e$<"D0" AN VX 

D e$<>"N" THEN 980 | 


990 IF e$="N" THEN 100 NF 
1906 GOTO 1540 LJ 
1910 ‘-——""""—- KE 
1920 ‘ GRILLE FINIE . >XF 
1939 »X6 
1935 LOCATE 2,22:PRINT" >AV 


“sLOCATE 2,24: PRINT " 


1646 WHILE INKEY$="":LOCATE 29,25:P >XG 
RINT'BRAVO !! VOUS AVEZ FINI CETTE 
GRILLE !!":FOR t=1 TO 150:NEXT:LOCA 

TE 1,25:PRINT CHR$(18);:FOR t=1 TO 
150:NEXT:WEND:CLS:G0TO 920 


1950 ‘===========22= >XJ 
1966 ‘ CREER GRILLE >KK 
1979 ‘=====2===2=22= >YA 


1988 IF ng>30 THEN MODE 9:LOCATE 4, >JH 





12: PRINT'FICHIER PLEIN":FOR 1=i TO 


1046: NEXT: :GOTO 196 ELSE CLS 

1996 gn=ng:gn=gn+i 

1196 GOSUB 1756 

1116 LOCATE 39,25:PRINT CHR$(£4);" 
ENTREZ VOTRE GRILLE “;CHR$(24): 
1136 x=d:y=6 


1139 LOCATE x, vs PRINT CHRS(Z4S I: FOR 3 2E 


1=i TO 1SG:NEXT:LOCATE x, ya PRINT" 
“sFOR 1=i TO 1SG:NEXT 


1149 e$=UPFERSCINKEYS): IF e$="" THE : 


N 1139 
1158 IF ASC(e$i=127 THEN LOCATE x,y 
PRINT" iusx-2iIF x£4 THEN x=18:y= 


y-2:IF véb THEN v=6:60T0 1136 ELSE 
1136 ELSE 1136 

1169 IF ASC(e$)=49 THEN e$=CHR$ (147 
i 

1179 ci$ign,x/2-1,v/2-2)=e$:LOCATE 
X,Y!FRINT ef 

1180 u=x+2s IF 4220 THEN x=iy=y+#2il 
F y=22 THEN LOCATE 1,25:PRINT CHR$( 
18)::6070 1266 

1196 GOTO 1138 

1264 LOCATE 25,4:PRINT CHR$ (24): "1 
- Horizontalement":LOCATE 25,14:FRI 

NT"2 - Verticalement" 

1216 LOCATE 28,25:FRINT" ENTREZ LES 
DEFINITIONS ";CHR$ (24) ; 

1224 y=4 

1236 FOR i=1 TO 16 

1249 vy=y+liIF y=13 THEN y=15 

1299 LOCATE 25,v:1F 1€9 THEN PRINT 
RIGHTS (STRS (1+166),2): ELSE PRINT 

RIGHTS (STRS (1-8+106), 2): 

1264 PRINT ", "ss STRINGS (5ù, "-") 
1274  LOCATE 28, v: INFUT"",dé&(gn, ii 


3NY 


EG 


#04 


LE 


#ME 
?NE 


#HL 


#XA 
LG 
WA 
CL 


3XY 
BE 


1284 NEXT : 


1298 IF ng=26 THEN 1326 ELSE CLS:PR à 


INT'Voulez-vous creer une autre gri 
lle (O/N) 7" 


1300 e$=UPPERSCINÉEY#): IF e$<:"0" À à 


ND e$<s"N" THEN 1399 


.… VOUS ETIEZ ABONNE A CPC 
VOUS AURIEZ REÇU CE NUMERO 
GRATUITEMENT ! 


BON DE COMMANDE PAGE 30 


wS5vu 


1316 IF e$="0" THEN 1686 EL 
1326 GOTO 1544 ?MD 

H30 ‘============522=222= XE 
1340 ‘ CHARGER UN FICHIER YA 
13594 ‘==sz=z==s22ss=2=2zzz222 :YE 
1388 CLS: INFUT'Nom du fichier à cha :AG 
rger : “,nfé 

1374 OPENIN nf$ CH 
1384 INFUT#9,ng LE 
1399 FOR 1=i TO ng LP 
1494 FOR y=i TO 8 EF 
1414 FOR x=1 TD E ?FE 
1426  INPUT#9,cisli, x y) TJ 
1430  INPUT#9,c28(i,x,yi #TL 
1444 NEXT x #XE 
1459 NEXT y KE 
1466 NEXT : 3VG 
1476 FOR 1=1 TO ng ?LN 
1486 FOR d=1 TO 16 #LV 
1498 INPUTH9,d8 (à, d) >PE 
1594 NEXT d VE 
1319 NEXT 1 VC 
1526 CLOSEIN #3 
1539 GOTO 106 EF 
1544 ‘======2=======2=== #YC 
1554 ‘ SAUVER FICHIER 3YD 
1569 ‘========2=2=22222= #YE 
1576 CLS:INPUT"Nom du fichier a sau :ZR 
ver : ",nf$ 

1586 OPENOUT nf$ #LT 
1599 WRITE#9,ng LC 





ieûé FOR 1=1 TÜ ng 

loi FOR y=i T0 8 

162% FÜR x=i TD 8 

1854  HRITER#9,cif(1,x, y: 
1644 HRITE#9,c2#(1,x, vi 
1656  NEXT x 

166% NEXT y 

1674 NEXT 1 

1684 FOR 1=i TÜ nq 

169% FOR d=i TO 16 

1794  WRITE#9,d#(1,di 
1714 NEXT d 

1728 NEXT 

1736 CLOSEOUT 

1746 GOTO 166 

1758 : 
1766 
1776 


1784 LOCATE 6,Z:PRINT'GRILLE N, "SRI 


GHTS(STR# (164+qn) , 2) 


1706 e=G:FOR 1=3 TO 17 STEP Ziezet]i . 


tLOCATE 1,4: PRINT e:NEXT 


1869 e=ÿ:FOR 1=6 TO 24 STEF Zie=eti : 


tLOCATE 1,1:FRINT @:NEXT 


1819 FOR 1=24 TO 148 STEP 16: MOVE 1 


,328, 1:DRAUR 0,-256:NEXT 
1820 FOR i=328 TO 72 STEP -32:MOVE 
26, i:DRAWR 128,6: NEXT 


1858 IF gn:ng THEN ng=ng+1:GOTO 196 : 


ë 
1844 FOR y=i TO B 
1854 FOR x=1 TD 8 
1866 
N LOCATE x#2+2,y#2+4: PRINT CHR$ (143 
P:c28 (qn, x, v)=CHR$ (143) 

1874 
TE x#2+2,V#2+4: PRINT c2$(gn,x,y):sc 
=sc+] 

1886 NEXT x 

1894 NEXT y 

1984 RETURN 

1916 : 


1949 y=4 
1958 LOCATE 25,4:PRINT CHR$ (24) : “Ho 
rizontalement" 


196 LOCATE 25,14:FRINT"Verticaleme . 


nt"; CHRS (24) : 

1970 FOR i=1 TO 16 

1980 y=y#1 

1990  LOCATE 25,y:1F 49 THEN PRINT 
RIGHTS (STRS (+100) ,2); ELSE PRINT 
RIGHTS (STRS (i-8+100) , 2) ; 

2000 PRINT". ":d$(gn, i) 

2016 IF y=12 THEN y=14 

2020 NEXT 

2036 RETURN 


IF cigign,x,v)=CHR$(143) THE > 


IF c2$(gn,x,y)<>"" THEN LOCA : 


FH 


FD 


VE 


#XE 
AL 


$\ 


< 


H 


LU 
>PG 
?CY 


>QM 
PV 
KF 
EJe 











RELIEFS 
MATHEMATIQUES _ 


RELIEFS MATHEMATIQUES est un 
programme graphique permettant de créer 
des images de surfaces générées à partir de | 
fonctions mathématiques du type z=/f{(x, y). TT 
En fait, “‘RELIEFS MATHEMATIQUES” Gi 
ambitionne de visualiser lesdites surfaces 
selon l’aspect qu'elles auraient si on les 
matérialisait. Cela implique que leur 
représentation tienne compte de la réalité de 
la perspective (le programme crée un effet 
de perspective à trois points de fuite) mais 
également de la quantité de lumière que 
chaque élément de la surface renvoie à l’œil 
de l’observateur (selon leur position par 
rapport à la source lumineuse qui les éclaire, © Thierry 
ces éléments sont plus ou moins clairs, d’où CHILLAN 
l’effet de relief). De plus, “‘RELIEFS 

MATHEMATIQUES” offre la possibilité de 

visualiser les fonctions à tracer sous 

n'importe quel angle. 
















F— 


X min 


DOC 
ANANAA 


e LR AS 7 N/ 
NZ \pmex \ Les sommets de ces triangles ont cha- 


cun une abscisse X et une ordonnée Y 
x Figure 1 à partir desquelles sont calculées les 
coordonnées Z d’altitude (fig. 2). 


PRINCIPE 
DE FONCTIONNEMENT 


Une fois entrés les données et paramè- 
tres qu’on lui a fournis (nous les ver- 
rons plus loin) le programme com- 
mence par découper le domaine 
d’étude en triangles équilatéraux ; il 
s'arrange en tout cas pour qu’un 
pavage de triangles équilatéraux 
recouvre la totalité de ce domaine 
(fig. 1). 
































Figure 2 
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Cette troisième coordonnée, pour cha- 
cun des sommets, permet de définir un 
nouveau triangle B dont les sommets 
appartiennent à la surface à tracer. Le 
triangle B est en fait la projection 
approximative du triangle A sur la 
surface (voir schéma précédent) dont 
nous considérons qu’il constitue une 
facette. On définit alors un vecteur Vn 
orthogonal au plan du triangle B et 
dirigé dans le sens des Z croissants et 
un vecteur Vecl reliant la source lumi- 
neuse éclairant la surface au centre de 
la facette. En fonction de l’angle que 
forment ces deux vecteurs, le pro- 
gramme détermine quelle couleur il 
devra affecter à cette facette, sachant 
que plus l’angle est grand, plus cette 
couleur est claire. 

Les facettes sont ensuite affichées à 
l’écran en partant de celles qui sont le 
plus éloignées de l’observateur vers 
celles qui sont les plus proches ; c’est 
l’algorithme du peintre. 


MODE D'EMPLOI 

Tout d’abord exprimer la fonction à 
tracer dans le DEF FN de la ligne 110. 
Placer son nom dans le SAVE de la 
ligne 990, juste après le point d’excla- 
mation, en vue d’une sauvegarde de 
l’image. 

Le programme est alors prêt à fonc- 
tionner : le lancer par RUN puis 
répondre aux indications de l’écran. 
— Xmin, Xmax, Ymin, Ymax sont 
les bornes inférieures et supérieures du 
domaine d’étude, respectivement par 
rapport aux axes X et Y. 

— Degré de maillage : ce paramètre 
sert à définir la finesse du tracé : plus 
il est grand, plus la surface à afficher 
est réaliste. 










— Angles de vision vertical et hori- 
zontal, distance de l’observateur : ces 
paramètres correspondent aux coor- 
données sphériques de la position de 
l’observateur (fig. 3). 


— Pour l’option suivante, sélection- 
nez le choix 2 quand la surface que 
vous avez à tracer présente des asymp- 
totes, sinon toujours choix 1. 

— Angles vertical, horizontal d’éclai- 
rage et distance de la source lumi- 
neuse : coordonnées sphériques de la 
position de la source lumineuse éclai- 
rant la surface. 

— Sélection d’un mode d’affichage. 
Choix 1: ce choix est réservé aux 
écrans monochromes. Le programme 
travaille en mode 0 et l’effet de relief 
sur les surfaces est réalisé grâce à l’uti- 
lisation des 16 nuances de vert dispo- 
nibles à l’écran. Si cette option est 
sélectionnée, le programme demande 
de choisir le degré de luminosité de la 
source éclairante. Le degré 5 donne en 
général des images bien contrastées. 
Choix 2 : ce choix s’adresse à tous les 
types d’écran. Les nuances de couleur 
sont réalisées par ‘‘tramage”’. Si cette 
option est sélectionnée, la possibilité 
est alors offerte d’avoir un affichage 
des facettes avec leur contour. 
L'ordinateur annonce par un 














Ray = distance de l'observateur 





Figure 3 








‘“BEEP”’ que le tracé est terminé. 
Vous avez alors la possibilité de sau- 
vegarder votre image en pressant la 
touche ‘ENTER’, de voir le temps de 
calcul s’afficher en pressant la touche 
“T””. Si la fonction visualisée présente 
des asymptotes et que vous la jugez 
mal centrée, vous pouvez demander 
un nouveau tracé où l’image sera 
translatée vers le haut ou vers le bas 
d’un certain nombre de pixels ; pres- 
sez pour cela la touche d’espace et 
entrez une valeur positive (translation 
vers le haut) ou négative (translation 
vers le bas). 

Les images sauvegardées en mode 0 
sont récupérées par les instructions : 
for 1 = 1TO1I5:INKI,I+5 : NEXT 
I : INKO,0 BORDER 0 : MODE 0 : 
LOAD’’!” 

Celles en mode 2 par : MODE 2 : 
LOAD”’’!”? 


NOTER QUE : 

— Certains degrés de maillage affec- 
tés à certaines fonctions entraînent à 
certains moments des anomalies de 
fonctionnement du programme. Dans 
ce cas arrêter le programme et recom- 
mencer en changeant le degré de mail- 
lage d’une ou deux unités. 

— Pour que ‘‘RELIEFS MATHE- 
MATIQUES” fonctionne sur CPC 
664 et CPC 6128 il faut enlever le 
SPEEP WRITE 1 de la ligne 990. Il 
faut également modifier les lignes 
suivantes : 

90 MEMORY &9FFF 

960 IF Mo = 2 THEN CALL 
&A040,15 
2060 CALL &A040, Trame 
2330 CALL &A040,15 


19 REM HER >VE 
24 REM # # AJ 
34 REM + RELIEFS MATHEMATIQUES x AE 
46 REM * # BA 
50 REM # par T.Chillan oct.87 # 3XH 
bÿ REM # | *# BC 
10 REM HIHI 3VH 
80 MODE 2 : INK 1,24 LV 
96 MEMORY &ABFF ?GE 
199 ON ERROR G0TO 2699 06 
116 DEF FN f(X.Y)= ?LF 
126 INFUT"Xmin = ",Xmin >UR 
139 INPUT" Xmax = ", Xmax ?UX 
149 INPUT" Ymin = “,Ymin >U4 
156 INPUT" Ymax = ", Ymax >UB 
169 INPUT"Degre de maillage : “,Mai ?LV 
1 

174 PRINT ° FA 
186 INFUT'Angle de vision vertical ?CK 





2510 POKE &BDE9,&0 : POKE 
&BDEA,&A0 

2520 AD = &A000 

2535 POKE &A017,&A0 

2540 AD = &A040 : n=0 

2555 POKE &A059,&A0 

2580 CALL &A040,15 

La ligne 2536 diffère selon les 
modèles : 

2536 POKE &A025,&71 pour les CPC 
6128 

2536 POKE &A025,&6D pour les 
CPC 664 

Quelques exemples : 

fonction 5 * COS(COS(SQR(X*X + 
Y*Y)) 

paramètres dans leur ordre respectif : 
-10; 10; -10; 10; 80; 30; 30; 40; 40; 1; 
60; 120; 10; 1; 5 

temps de calcul : 3 h 32 min 565 


5 * COS (COS(SQR(X*X + Y*Y))) 
paramètres : -10; 10; -10; 10; 50; 90; 
0; 40; 1; 60; 120; 10; 1; 5 

temps de calcul : 1 h 20 min 45 s 


3 * SIN(X)!2 * SIN(Y) 

paramètres : -3,14; 3,14; -3,14; 3,14; 
50; 25; 320; 15; 1; 40; 20; 100, 1; 5 
temps de calcul : 1 h 28 min 195 


10 * SIN (PI/2 * SQR(X*X + 
Y*Y))/SQR(X*X + Y*Y) 
paramètres : -10; 10; -10; 10; 50; 30; 
25; 40; 1; 30; 60; 100; 1; 5 

temps de calcul : 1 h 29 min 285 


10 * SIN (PI/2 * SQR(X*X + 
Y*Y))/SQR(X*X + Y*Y) 
paramètres : -10; 10; -10; 10; 50; 30; 
25; 40; 1; 30; 60; 100; 2; N 

temps de calcul : 1 h 29 min 385 


Theta (-96<Theta{9) : “,Theta 

199 INPUT"Angle de vision horizonta ?YM 
1 Fhi ({Phi£366) : "Phi 

269 INFUT"Distance de l'observateur OM 
a l'origine : ",Ray 

219 PRINT 

226 DEG : ct=COS(Theta) : st=SIN(TR 
eta) : cp=C0S(Phi) : sp=SIN(Fhi) 
230 Pasy={Ymax-Ymin) /Mail : Fasx=Fa ?TH 
Sv#S0R (3) /2 

249 Xmaxav=Xmax 

259 Xmax=Xmin+ (INT ((Xmax-Xmin) /Pasx 
)+1)#Pasx 

266 IF Xmax=Xmaxav+i THEN Xmax=Xmax ?HJ 

av 

270 PRINT"'Selectionnez une option : ?PC 
286 PRINT" 1. Affichage de la tota CN 
lite de la surface calculee“ 

290 PRINT" 2, Affichage de la surf >EB 


æ ii 


ace tronquee" 
396 INPUT". opt 
316 PRINT 


320 INPUT"'Anale vertical d eclairag : 


e Alpha (-90{Alphat96) : “,Alpha 


33 INPUT'Anqle horizontal d eclair :D4 


age Beta (dtBetai366) : “,Beta 


346 INPUT"Distance de la source lum : 


ineuse à l'origine : "A 
356 PRINT 
366 Xec1=R+C0S (Aipha) #C05 (Beta) 


370 Yec1=R+CÜS (Alpha) #GIN (Beta) 





38% Zeci=R#SIN (Alpha 

396 RAD : 51 necessaire 

464 PRINT'Selectionnez un mode d'af : 
fichage :* 

416 PRINT" 1. Mode & (ecrans monoc . 
hromes uniquement) : mode FILL" 

426 PRINT" 2, Mode 2 : mode TRÂMES :6b 


34 INPUT'>", Mo 
440 PRINT 


456 IF Mo=i THEN INFUT'Degre de ium :k 


inosite t-il) 5 “Lun 


4bÿ IF Mo=2 THEN INFUT"Desirez-vous : 


le contour des facettes ? (O/N) : 
",Bord$ 

470 DIM Yi(Mail+1,3),Y2(Mail+2,3 
496 1=ù 

496 FOR Y=Ymin TO Ymax STEF Pasy 
968 1=1+1 

916 Y1(1,2)=Y 

924 NEXT Ÿ 

J30 1=ÿ 

049 FOR Y=Ymin-Pasv/2 TO Ymax+Fasv/ 
2 STEP Pasy 


990 i=iti 
J60  Y2(1,2)=Y 
974 NEXT Y 


586 IF Mo=1 THEN Fang=P1/14 ELSE Fa : 


ng=P1/15 : Coul=1 : GOSUB 2516 : 60 
TO 66n 

996 INK 4,4 : BORDER 6 : PAPER 6 
608 FOR i=2 TO 15 

618 INE i,Lumti 

&zù NEXT 1 

630 REM HN 


b4ÿ REM Sous-programme de calcul d ? 


es extrema et centrage 

650 REM HIHI 

bbà Tpav=TIME 

670 XEmin=2000 : YEmin=XEmin 

689 XEmax=-2009 : YEmax=KEmax 

698 PX=(Xmax-Xmin) : PY=(Ymax-Ymin) 
+Pasy 


760 IF apt=1 THEN PX=FX/16 : PY=FY/ : 


16 
716 FOR X=Xmin TO Xmax STEP FX 





20 


y/2 STEP FY 


FOR Y=Ymin-Pasv/2 TO Ymax+Fas : 


— 
us 


36 GOSUE 2420 UF 
74ù XEmin=MIN(XEmin, XE) : XEmax :UR 
=MAX{(XEmax, XE} 

750 YEmin=MIN(YEmin, YE) : YEmax :UZ 
=MAX (YEma:, YE) 

F6 NEXT Y RH 
776 NEXT à 0H 
786 Ecrx=bÿé : Ecry=366 0H 
798 Echx=Ecrx/(XEmax-XEmin) /1,47 C0 
884 Echv=Ecry/(YEmax-YEmin) 31R 
814 IF opt=i THEN Echx=MIN(Echx.Ech >6T 
y) 

826 Echy=Echx : Echx=Echx#i.07 2YY 
838 Xcent=(649-Echx#(XEmax+XEmin))/ F6 
#1 

840 Ycent=(408-Echv# (YEmax+YEmin}))/ FF 
850 REM #6 WE 
866 REM Affichage des facettes +16 
870 REM #6 >WM 
884 DIM vi(3i,v2(3),Vn(3),Vecl(3i,P >GH 
t(3,3),KE (3). YE(3).Barv(s) 

894 Flag=1 : Tst=ÿ :MQ 
964 IF Mo=i THEN INE 1.Lum+i : MODE MA 

à ELSE MODE 2 
914 IF Phi@ AND Fhi:=99 THEN Xdeb= >VT 


Xmin : Xfin=Xmax : GOSUB 1356 : GOT 
0 954 


926 IF Phi296 AND Fhié=i88 THEN Cas 


=i + Xdeb=Xmax : fin=kmin : Fasx:=- 
Pasx : GOSUB 135% : GOTO 956 

950 IF Fhi>180 AND Phi:=27à THEN Xd 
eb=Xmax : Xfin=Xmin : Pasx=-Fasx : 


GOSUB 1930 : GOTO 956 


948 Cas=2 : Xdeb=Xmin : Xfin=kmax : : 


GOSUE 1430 

959 PRINT CHR$(7) 

96% IF Mo=2 THEN CALL &A946,15 

970 Tenps=(TIME-Tpav)/300 : Heu=Tem 
ps\3609 : Minu=(Temps\bà}) MOD &ÿ': 
Sec=Temps MOD 60 

989 A$=INÉEYS 

994 IF A$=CHR#(13) THEN PRINT CHR$( 
7) : SPEED WRITE 1 : SAVE"! ",b,8C06 
0,16384. 


1609 IF A$=" " AND opt=2 THEN INPUT : 


“Translation : “,Deca : Ycent=Ycent 
+Deca : Tpav=TIME : GOTO 896 


1919 IF A$="£" OR A$="T" THEN LOCAT : 


E 6,1 : PRINT Minus"min “sSecs"s" : 
IF Heu‘? THEN LOCATE 1,1 : PRINT 

Heu; “h" 

1920 GOTO 98ÿ 

1836 FÜR X=Xdeb T0 Xfin STEF Pasx 
1649  GOSUB 1790 

1959 IF Tst=0 THEN 1329 


TX 


1969 IF Flag=1 THEN 1206 ART 
1978 FOR i=i TO Mail+i F6 
1989 FOR ii TO 3 F6 
1996 IF Cas=2 THEN vi(j)=Y2{i ;RB 


D-viti,i) ELSE v2tj=v2ti, ji-Yiti 
,d) 


1196 IF i£oi THEN Pt(i,ji=vi( 3V6 
i-1,j) : Ft(2, ji=vi(i,3) : PE(S, = 
Y2(i,3) 

1119 NEXT j WE 
1126 IF i<>1 THEN GOSUB 1896 VC 
1136 FÜR j=i TO 3 ?FC 
1149 IF Cas=2 THEN v2(j)=Y201 ?XC 
+1,3)-Yi0i,j) ELSE vitji=Y2(i#i,j)- 
YiGi,3) 

1156 PEU, ji=va(i, jh: FtCZ 3 2DL 
P=V2(iti,j) : PE, H)=Yi Gi) 

1166 NEXT j ?XE 
1179 GOSUB 1895 #BF 
1i8é NEXT : WF 
1196  GOTO 1320 PA 
1209 FOR i=i TO Mail+i ?PE 
1219 FOR j=i TO 3 FE 
1226 IF Cas=2 THEN v2(3)=Yi(i 7RU 
Sd-Y20i,i) ELSE vitii=yi(i,ii-v20 

EL | 

1238 IF iéoi THEN PE(,j)=Yi VU 
(I-1,3j) : Pt(2,j)=Y1(i,j) : Fti5,h) 
=Y2(i,j) 

1248 NEXT j XD 
1250 IF i<>i THEN G6OSUB 189%  >V6 
1260 FOR j=i TO 3 ?FG 
1279 IF Cas=2 THEN vi(ii=Yi(i >XG 
i-V2(i#1,j) ELSE v2(i)=Yi ti, j)-Y2 
(i#1,3) 

1288 Pt(1,j)=v20,3) : Ft(2,3 >D0 
=v2(i+i,j) s PECS, j)=Y1 (Gi, j) 

1290 NEXT j 3XJ 
1300 GOSUB 1895 ?EA 
1319 NET i WA 
1526  Flag=-Flag ?LD 
13536 NEXT À >WH 
1349 RETURN ?FB 
1350 FOR X=Xdeb TO Xfin STEP Pasx EN 
1360  GOSUB 1760 AY] 
1379 IF Tst=ÿ THEN 164 QD 
1380 IF Flag=i THEN 1526 RD 
1396 FOR i=Mail+i TO 1 STEP -{ MH 
1456 FOR j=i TO 3 FC 
1419 IF Cas=1 THEN vi(j)=Y2{1 ?XB 
#,D-Yiti,j) ELSE v2(i)=Y2(iti, j)- 
YiGi,3) 

1428 IF it Mail+i THEN Pt, 2FL 


j=Ytti#t,j 2 PH(2, j=Vi(i, jh : Pt 
(3, =Y2(i#1, 

1439  NEXT j 

1440 IF i£Mail+i THEN GOSUE 18 
où 





?XE 
AE 


1458 FOR j=i TO 3 FH 
1468 IF Cas=1 THEN vitji=v20i :RB 
sù-Y1(i,i) ELSE vitii=Y20,ji-Yi(i 

‘) 

1478 PtQ,j)=Y20i+#1,j} : Pt(2 >DM 
Sd=v20,j) ? PEC ji=Yi (à, ji 

1484 NEXT j ?XE 
1496 GOSUE 1896 CA 
1569  NEXT i WE 
1519  GOTO 1646 :FE 
1524 FOR i=Mail+i T0 1 STEP -i WC 
1534 FOR j=1 TD 5 F6 
1544 IF Cas=i THEN vz(ii=Yi(i XF 
.d)-Y2(i#i,i) ELSE vitji=viti,ji-#2 
(+1,13) 

1550 IF i£Mail+i THEN Ft(i.j EH 
p=Yidisi,i) : PE(2,j)=Y10i,j) : Pt{ 
3,j)=Y20i+i,3) 

1568 NEXT 3j 2XJ 
1578 IF iéMail+i THEN GOSUB 18 :AF 

90 
1588 FOR j=i T0 3 :GÈ 
1596 IF Cas=i THEN vitii=Yi(i RP 
.h-Y2(,j) ELSE vitji=Yi(i,3)-Yati 
i) 

1608 FPtt,ji=v20i+i,it : PE(2 »D6 
D)=V20,i) : PE, D=Yi ti, 

16iÿ NEXT j #kE 
1620 GOSUB 1896 BF 
1636 NEXT : ?WF 
1644  Flag=-Flag #LJ 
1658 NEXT X #KC 
1668 RETURN F6 
1670 REM HR OD 

AH 
1685 REM Sous-programme de rangeme AE 
nt des coordonnees 
169% REM HIHI SF 
HP 
1704 IF Flag=-1 THEN 1780 3RX 
1719 FÜR 1=i TO Mail+i 3PC 
1724  Yi(1,1)=X ?TE 
1730 IF Trans=1 THEN Yi(i,2)=Y ?YA 
1748  Yiii,3)=FN f(Y1(i,1),Y1(i,2} AE 
} 

1758 IF Trans=i THEN GOSUB 2636  >2D 
178 NEXT 1 aVÉ 
1776 GOTD 1858 2NG 
1786 FOR 1=1 T0 Maii+2 FL 
1799  Y2(1,1)=X ?UC 
1869 IF Trans=i THEN Y2(1,2)=Y >Y1 
1819 Y2(i,3)=FN f(Y2(1,1),Y2(1,2) >AF 
} 

1826 IF Trans=i THEN GOSUB 2638  ?ZE 
1834 NEXT : >VH 
1846 Tst=i ?RG 
1850 RETURN >FH 
1860 REM HIHI VE 





AH HPHHEHEEHEPHERER 
1879 REM Sous-programme de calcul 
des couleurs et affichage 

1880 REM HIHI 
AH 


1890 FOR j=1 TO 3 
1900  Bary(j=(Pt(1, jh4Pt (2, ji+Pt( 
3,1))/3 

1919 NEXT j 


1929 Vn(i)=vi(2)#v2(3)-vi(3)#v2(2) 
1936 Un (2}=vi (3)#v2(1)-vi (L)#v2() 
1946 Vn(3)=vi (1)#v2(2)-v1(2)#v2(1) 
1959 Vecl(i)=Bary(1)-Xecl 

1968 Vecli2)=Bary(2)-Yecl 

1974 Vecl(3}=Barv(3)-Zecl 

1986 Prosc=Vn(i)#Vecl(1)+4n(2)#Vecl 
(2}+Vn(3)#Vec1 (3) 


1996 Vn=5QR (Vn (1324 Vn (23 %24Vn (32 à 


) 


#6Y 


?Y6 


CE 
#JK | 


3VH 
AA 
>AA 
A 
>UB 


2696 Veci=SQR (Vec1(1}"2+Vec1(2)*24+V PE 
ec] (3)*2) 

2616 Cosang=Frosc/(Vn#Vec1} >XD 
2926 ang=ATN(SQR(i-Cosang“2)/Cosang ?6R 
} 

2039 IF ang<ô THEN ang=angtPl #RT 
2644 IF Mo=i THEN Coul=INT(ang/Fang ?VE 
+1.5) : GOTO 2079 

2956 Trame=INT (ang/Fang+0. 5) >XX 
2666 CALL &A949,Trame FN 
2679 Xmem=X DC 
2080 FOR j=i TO 3 CB 
2099  X=Pt(j,1) : Y=Pt(j,2) : 2=Pt ?E0 
(3,3) 

2196 GOSUB 2439 AYC 
2116 XE(3)=XExEchxtXcent : YE(j)= TJ 
YE#Echy+Ycent 

2120 IF YE(i)>2060 THEN YE(j}=209 >AC 
Cl] 

2136 IF YE(j)<-2690 THEN YE(j)=-2 CL 
066 

2149 IF Z>6 AND YE(j)=-2696 THEN JE 
YE(j)=2000 

2150 NEXT j VE 
2166 X=Xmem ?DC 

2176 IF YE(2)>VE(I) AND YE(2}>YE(3) VX 
THEN exx=KE (1) : exy=YE(1) : KE(1) 
=XE(2) : YECL)=YE(2) : KE(2)=exx : 
YE(2)=exy : GOTO 2190 

2180 IF YE(3)>YE(1) AND YE(S)>YE(2) >CF 
THEN exx=XE(1) : exy=YE(i) : XE(I) 
=XE(3) : YECL)=YE(S) : XE(3)=exx : 

VE (3)=exy 

2196 IF YE(S)>YE(2) THEN exx=XE (2) >CQ 


t exy=YE (2) : XE(2)=XE(S) : YE(2)=Y 
E(3) : XE(3)=exx : YE(SI=exy 


2209 Nxi=XE(1)-XE (2) : NyI=ROUND(YE > 


(1)-YE(2))+1 : Stpi=Nxi/Nyi 
2219 Nx2=XE(1)-XE(3) : NyZ=ROUND(YE 


>HY 


Da 


(LD-VE(S)I#1 +: Stp2=Nx2/Ny2 


2226 Nx3=XE(2)-XE (3) : NvZ=ROUND(YE HG 
(21-YE(3)}+1 : Stpa=NxS/Nv3 

2236 Cpt2=i WE 
2249 FOR Cpti=i TO Nyi ?0E 
2259 MOVE KE(1)-CptixStpi,YE({)-C :DU 
pti : DRAH XE(1)-Cpt24Stp2,YE(1)-Cp 
ti,Coul . 

2260  Cpt2=Cpt2+i LB 
2276 NEXT Cpti ?XC 
2289 FOR Cpti=2 TO Nvs 204 
229% MOVE XE(2)-CptixStp3,YE(2}-C DD 
pti : DRAW XE(1)-Cpt2#Stp2,YE(2)-Cp 
ti,Coul 

2309  Cpt2=Cpt2+#i LH 
2316 NEXT Cpti :WH 
2326 IF Bord$<;"o" AND Bord$£:"0" T :JM 
HEN 2389 

2339 CALL %A949,15 LA 
2349 MOVE XE(1),YE (1) PB 
2356 DRAH XE(2),YE (2) PV 
2366 DRAW XE(3),YE (3) ?FY 
2374 DRAW XE(1),YE(1) >FV 
2389 RETURN F6 
2390 REM HOPPER YD 
ÉÉFÉSÉIS LES LEI SSI CSI SSII 

2460 REM Sous-programme de calcul :Yk 
des coordonnees à l'ecran 

2410 REM HONOR YU 
PRESSE SES LES SSII TSI 5 

2420 I=FN #(X,Y) HT 
2436 d=Xxcp#ct+Y#sptct+1xst-Ray BY 
2440 XE=(X*sp-Yxcp) /d ON 
2450 YE=(Xxcp#st+Y#spast-Z4ct) /d CB 
2466 IF Trans=i THEN GOSUB 2636 >YN 
2479 RETURN F6 
2480 REM HE >VU 
2490 REM Generation de trames 2YH 
2500 REM HO 3VL 
2519 POKE &BDE9,80:PDKE &BDEA,&A9 AB 
2520 AD=&A900 EH 
2539 READ A$:A=VAL("&"+A$) :POKE AD+ :GD 
N,A:NEN+I: IF ABC THEN 2530 

2546 AD=4A940:N=0 ?LE 
2556 READ A$:A=VAL("&"+A$):POKE AD+ >HD 
N,AINEN+I: IF ACRC9 THEN 2556 

2969 AD=&AAGO: FOR N=0 TO 15:FÜR 1=6 EP 
TO 7 

2574 READ A:FOKE AD+N#8+1,A:NEXT I, ÿDX 
N 

2589 CALL &A946,15 3LH 
2599 RETURN 2FK 
2600 REM HEAR HD 
2619 REM Restitution des X et Ÿ ZE 
2620 REM HET OUT 
2636 K=Xmem : Y=Ymem ?PT 
2649 Trans=0 »JJ 
2650 RETURN F6 





2666 REM HF 
AE 
2674 REM Depassements de capacite 
arithmetique 


ZEBA REM #6 MCD GE 


OH 
2690 Xmem=X : Ymem=Y 


KM 


2700 IF ERR=6 OR ERR=1i THEN X=X+MA :RG 


K(ABS(Xmin) ,ABS(Xmax) } 20000 : V=V+ 
MAX (ABS (Ymin} ,ABS (Ymax} ) /20009 
2716 Trans=i 

2728 IF ERL=2426 THEN RESUME 2429 
2730 IF ERL=1740 THEN RESUME 1726 
2740 IF ERL=1816 THEN RESUME 1796 
2756 REM HIHI 
HN 

2768 REM Datas pour la generation 
des trames 


2770 REM #3 


#6 


2786 DATA ES,D5,11,0,C6,ED,52,7C,CB : 


2F,CB,3F,CE,3F,11,0,0,5F,DD,E5,DD, 
21,27 


2796 DATA A9,DD, 19, DD, 56,0, 78, A2, 47 : 


,DD,E1,D1,E1,C3,68,€ 
2806 DATA FE, 1,C0, DD, 7E 

2819 DATA 0,FE, 10,Dÿ, CB, 27, CE, 27,CB 
,27,21,0,48,11,0,0,5F,19,11,27,A9, 1 
8 

2826 DATA 0, ED, B,C9 

2836 DATA 0,4,0,0,0,0,0,0 

2846 DATA 0,64,6,8,0,64,0,8 

2850 DATA 8,128, 4,64,2, 32, 128,8 
2866 DATA 0,34,0,136,0,34,0,136 
2870 DATA 132,32, 132,32, 132, 32,132, 
32 


2889 DATA 136,34,136,34,136,354,136, : 


34 


2890 DATA 146,73, 146,73, 146,73,146, à 


73 


2906 DATA 170,85, 170,85,170,85, 170, : 


85 


2919 DATA 170,85, 170,85, 170,85, 176, : 


85 


2924 DATA 109, 182, 109, 182, 189,182, 1 à 


09,182 


2939 DATA 119,221,119,221,119,221,1 : 


19,221 


2940 DATA 123,223, 123,223, 123,223, 1 à 


23,223 
2950 DATA 255, 221,255, 119, 255, 221, 2 
55,119 


2966 DATA 247,127,251,191,253,239, 1 : 


27,247 


2976 DATA 295,191,255, 247,255, 191,2 


55,247 


2989 DATA 255,295,255, 255,299, 255,2 } 


55,255@ 


ou 
um 


Mu Avant de vous lancer 
— dans de folles 
… dépenses et de vous 
… approprier l’objet 

«. convoité, livrez-vous à 
… ce petit exercice : 
tapez le listing suivant 


* et choisissez l’option 


« du menu qui vous 
convient parmi la 
| recherche sur prêt, la 
« valeur acquise et la 

| valeur actuelle. De 
quoi vous décourager 
« ou bien vous inciter à 
—. vous offrir une 

— nouvelle voiture (par 





© Didier 
RUYFFELAERT 


1 ‘ PROGRAMMATION FAITE PAR DIDIER FA 
RUYFFELAERT SUR AMSTRAD CPC 6128 MO 
NOCHROME 

16 HE PRE LA 
Te BANQUE HER 

#+ 

28 MODE 2 BF 
30 LOCATE 16,4:PRINT"1- pret" ?1A 
40 LOCATE 19,6:PRINT"# recherche 5 }W 
ur pret * 

96 LOCATE 11,7:PRINT"- 2 - capital" FC 


68 LOCATE 11,8:PRINT"- 3 - duree" 


CN 


76 LOCATE 11,9:PRINT"- 4 - taux ann >LD 
uel" 
89 LOCATE 10,11:PRINT"*# valeur acq FH 
uise" 
96 LOCATE 11,12:PRINT"- S - capital >G6N 


190 LOCATE 11,13:PRINT"- & - suite >EBW 
de versements" 

119 LOCATE 19,15:PRINT"*+ valeur ac 
tuelle" 

120 LOCATE 11,16:PRINT"- 7 - capita HV 
1” 

130 LOCATE 11,17:PRINT"- 8 - suite EF 


?RM 








Illustration : Jean-Luc AULNETTE 





de versements" 


140 LOCATE 50,24:LINE INPUT "choix JG 
t'ya$ 
150 IF VAL (a$i © 1 OR VAL (a$) ; 8 :DD 
THEN 149 
160 IF a$ = "1" THEN 2326 :FH 
170 IF a$ = "2" THEN 249 >NN 
189 IF a$ = "3" THEN 766 2NY 
198 IF a$ = "4" THEN 1306 PL 
266 IF a$ = "5" THEN 1966 >PE 
219 IF a$ = “&" THEN 4460 2PR 
220 IF a$ = "7" THEN 2iiÿ FH 
236 IF a$ = "B" THEN 492ÿ >PX 
240 ONE RG 
#4 R CAPITAL HE 
HE 
250 MODE 2 >H5 
260 LOCATE 32,2:PRINT'RECHERCHE CAF LG 
ITAL" 
278 LOCATE 14,6 #YD 
28% PRINT'DUREE DU PRET (en annee) :>J4 
299 LOCATE 14,8:PRINT'REMBOURSEMENT EM 
S (mensuel S 
366 LOCATE 25,9 ?X6 
319 PRINT'(tirimestriei " ;1D 
326 LOCATE 25,16 EF 
330 PRINT'(s)emestriel " 3YV 
340 LOCATE 25,11 EJ 
350 FRINT"(a)nnuel" RH 
36 LOCATE 16,13 EG 
370 PRINT'TAUX ANNUEL :" ?VH 
389 LOCATE 10,15 >FA 
390 PRINT'selon banque, methode de :CF 
calcul du taux a retenir 
460 LOCATE 25,18 FC 
419 PRINT"2- interets composes" #HX 
420 LOCATE 25,17 FD 
438 PRINT'i- interets simples" GE 
449 LOCATE 16,21 EE 
458 PRINT'REMEQURSEMENT SOUHAITÉ :" :GH 
46 LOCATE 37,6: INPUT duree 247 
470 IF duree {= 6 THEN 466 >RY 
484 LOCATE 37,12:LINE INPUT "choix 3EY 
:'sa$ 
490 IF a$="m" OR a$ = "{" OR a$ = :BY 
“s" OR a$ = "a" THEN 504 ELSE 486 
966 IF a$ = "m" THEN 510 ELSE 526 :WY 
519 d = duree # 12 : du = 12: GOTO :ZH 
970 
920 IF a$ = "t" THEN 536 ELSE 540 XD 
930 d = duree * 4 : du = 4: G0T0 5 >KA 
7è ; 
349 IF a$ = "s" THEN 590 ELSE 560 >XJ 
996 d = duree # 2 : du = 2: GOTO 5 >XY 
70 
Jéû d = duree : du = i MK 


970 LOCATE 23,13: INPUT taux 


980 IF taux € & OR taux > 196 THEN : 


37 
590 LOCATE 48,19 

669 LINE INPUT “choix :";a$ 
616 
24 ELSE 594 


624 IF a$ = "Î" THEN t = (taux ; d : 


u) / 109 ELSE & = Ci 1 + (taux/160: 
} * (/du) à - 1 

630 LOCATE 34,21 

648 INPUT lover 


654 IF lover = à THEN 636 

bbô capital = (1/(t/(1-(1+4)%-d)j}# à 
lover 

674 LOCATE 27,23: PRINT'CAFITAL FIXE : 


À 2"s2 PRINT USING. #4": capit 
al 

bB4 LOCATE 29,25 

696 PRINT "isiuite - (i)mprimante 


1769 q$ = INKEY$ 

716 IF g$= "s" OR q$="i" THEN 720 

ELSE 766 

72% IF g$="s" THEN RUN 

138 li=i 

746 GOSUB 4994 

759 GOTO 706 

TO HN 
FR DUREE 26H 
# 

770 MODE 2 


786 LOCATE 32,2:FRINT"RECHERCHE DUR : 


FE" 
79 LOCATE 10,6 
800 PRINTCAPITAL EMPRUNTE :" 


814 LOCATE 16,8:PRINT"REMBOURSEMENT : 


S (mensuel 5 

829 LOCATE 25,9 

856 FRINT'(tirimestriel 
849 LOCATE 25,10 
PRINT'(siemestriel ‘ 
LOCATE 25,11 

PRINT" {a)nnuel" 
LOCATE 19,13 
PRINT'TAUX ANNUEL :" 
968 LOCATE 19,15 
919 
calcul du taux a retenir 
920 LOCATE 25,18 

936 PRINT"3- interets composes" 
940 LOCATE 25,17 

959 PRINT"i- interets simples" 
96h LOCATE 15,21 


976 PRINT'REMBOURSEMENT EFFECTUE :° à 


989 LOCATE 28,6: INPUT capital 
996 IF capital ‘= 9 THEN 989 





IF a$ = "i" OR a$ = "2" THEN 6 : 


PRINT'selon banque, methode de : 


a 


ra 
Cm 


FD 
JG 


?RE 


?TD 


1696 LOCATE 37,12:LINE INPUT "choi : 
x :";a$ 
1919 IF a$="e" OR a$ = "t" OR a$ = : 


“s" OR a$ = "a" THEN 1926 ELSE 194 
(] 


F— 
< 


1926 IF a$ = "m" THEN 1639 ELSE 19 :7C 
45 

1839 du = 12: GOTO 199 PH 
1649 IF a$ = "t" THEN 1956 ELSE 16 :ZR 

(et) 

1958 du = 4: GOTO 1694 >ND 
1940 IF a$ = “s" THEN 1674 ELSE 14 :7X 
86 

1978 du = 2: GOTO 1496 ND 
1986 du = i :EH 
1409 LOCATE 23,13: INFUT taux :XH 
1196 IF taux © 6 OR taux > 166 THEN :CT 
1994 

1119 LOCATE 48,19 :LG 
1126 LINE INPUT "choix :"5a$ >YE 
1136 IF a$ = "{" OR a$ = "2" THEN 1 GR 
i4ÿ ELSE 1116 

1146 IF a$ = "{" THEN t = itaux / d :UJ 

u) / 199 ELSE t = (( 1 + (taux/10ô) 

) * (/du) } - 1 

1199 LOCATE 34,21 #LY 
1166 INPUT lover MR 
1174 IF lover <= à THEN 1154 >U6 
118% duree = 1 -{{ t * capital} / 1 :DV 
oyer ) 

1196 IF duree £= 6 THEN RUN ?UE 
1266 duree = LOG (duree)/ LOG (1 + >AD 
t) 

1219 LOCATE 27,23:PRINT"DUREE FIXEE :xXP 
À "5: PRINT USING'###HH#. #2 -dure 

e 

1226 LOCATE 29,25 ?LE 
1236 PRINT “(sjuite - (i)mprimante KC 
1249 q$ = INKEYS ?1A 
1258 IF q$= “s" OR g$="1" THEN 1268 :HM 
ELSE 124% 

1260 IF q$="s" THEN RUN ON 
1:70 li = 1 EE 
1286 GOSUB 4999 YF 
1296 GOTO 1249 ?MG 
1300 HHHHHENBEHEEEEHE IG 
#4 R TAUX HEIN 

#4 

1319 MODE 2 - PB 
1326 LOCATE 32,2:PRINT'RECHERCHE TA >HQ 
UX" 

1336 LOCATE 16,6 >DD 
1344 PRINT'DUREE DU PRET (en annee) >KC 
1359 LOCATE 19,8:PRINT'REMBOURSEMEN >CH 
TS (m)ensuel L 

1368 LOCATE 25,9 EF 





1376 PRINT" (trimestriel FA] 
1386 LOCATE 25,18 LE 
139% PRINT'(s)emestriel ‘ LÀ 
1489 LOCATE 25,11 #LY 
1416 FRINT"(ainnuel" :RÂ 
1426 LOCATE 14,13 LT 
1434 PRINT'CAFITAL EMPRUNTE : AN 
1446 LOCATE 10,15 Li 
1456 PRINT'selon banque, methode de :DE 
calcul du taux a retenir “ 
1466 LOCATE 25,18 iLJ 
1479 PRINT"3- interets composes" 3JC 
1484 LOCATE 25,17 . ëLE 
1496 PRINT" i- interets simples" ?GÙ 
1594 LOCATE 16,21 #0 
1516 PRINT'REMBOURSEMENT EFFECTUE : :HH 
1524 LOCATE 37,6: INPUT duree F4 
1536 IF duree = 4 THEN 1524 a 
1544 LOCATE 37,12:LINE INPUT "choix KE 
t";a$ 
1559 IF a$="n" Of a$ = "EDR a$ = :EK 
“s" OR a$ = a" THEN 1566 ELSE 1546 
1566 IF a$ = “m" THEN 1574 ELSE 156 :2F 
ÿ 
1576 d = duree # 12 : du = 12: GOTO :Ab 
1ë30 
1586 IF a$ = “£" THEN 1596 ELSE 166 :2k 
4 
1594 d = duree # 4 : qu = 4: GOTO i :2ZN 
836 
1606 IF a$ = "s" THEN iéié ELSE 162 >24 
ë 
1816 d = duree # À : du = 2: GOTD 1 :1B 
Cat) 
1826 d = duree : du = i 2NF 
1534 LOCATE 28.13: INPUT capitai AR 
1b4 if capital := 6 THEN 16. “Hé 
1654 LOCATE 48,19 #LR 
1668 LINE INFUT "choix :"saf aYL 
1678 IF a$ = "{" OR a$ = "2" THEN 1 GW 
bBû ELSE 1650 
1686 LOCATE 34,21 #LG 
169% INPUT lover MA 
{706 IF lover <= à THEN 1684 UP 
1714 IF (lover * di := capital THEN :EM 
RUN 
1724 ta = lover / capital TE 
1736 ta = CINT {ta + 16604) 3RF 
1746 taux = 26 #HÈ 


1756 IF a$ = “{" THEN t = (taux / d : 


u) / 196 ELSE t = (( 1 + (taux/190) 
}® (/du) ) -1 

176 1 = it /(1 - (1+t)-di) 

1776 1 = CINT ii + 16600) 


1788 IF 1 = ta THEN 1819 
1796 IF 1 ÿ ta THEN taux = 
.75 ELSE taux = taux # 1.5 
1886 GOTO 1754 

1814 LOCATE 27,23:PRINT"TAUX ANNUEL : 
FIXE À : "5: PRINT USINGH#HHHHE. HI 
s taux 


taux + à 


1824 LOCATE 29,25 #LL 
1656 PRINT “(s)uite - (iimprimante KJ 
1848 q$ = INÉEY$ #26 
1854 IF g$= "s' OR g$="i" THEN iEéé HG 
ELSE 184ÿ 

1866 IF a$="s" THEN RUN FûV 
1876 li = i FA 
1886 GOSUE 4995 +1E 
1896 GOTO 1846 3NJ 
1900 A NE TC 
# V. ACQUISE CH 

#4 

1916 MODE 2 QC 
1924 LOCATE 25,2:PRINT'VALEUR ACQU CT 
ISE FAR UN CAFITAL" 

1934 LOCATE 19,5:FRINT'duree (en mo PC 
15)-2" 

1949 LOCATE 14,19:PRINT"capital 1" :Fk 
1954 LOCATE 14,15:PRINT"taux annuel :L5 
1966 LOCATE 27,5: INFUT duree :XE 
1978 LOCATE 21,16:INFUT capital AN 
1984 LOCATE 25,15: INPUT taux ?AW 
199% taux = (1 + (taux / 166)) (1/1 AF 
21 

26044 €t = taux duree 3NF 
2414 va = capital + t NP 
2024 LOCATE 40,18:FRINT"VALEUR ACQU :V] 
IGE 23: PRINT USING. HH' va 

2434 LOCATE 29,25 3LE 
2648 FRINT "(s)uite - liimprimante KC 
2959 q$ = INKEYS ?ZA 
2068 IF q$= "s" OR g$="1" THEN 2475 :HM 
ELSE 2659 

2470 IF q$="s" THEN RUN ON 
2880 l1 = Î EE 
2696 GOSUE 4996 3YF 
2166 GOTO 2450 3LH 


AO HANNAH 


# V. ACTUELLE CAPITAL FR##RHHHH 
## 

2129 MODE 2 

2134 LOCATE 25,2:FRINT"VALEUR ACTU 
ELLE D'UN CAPITAL" 

2146 LOCATE 18,5:PRINT'duree (en mo 
15} :" 

215% LOCATE 19,19:PRINT"capital :° 


2166 LOCATE i%,15:PRINT"taux annuel 





F5 
>AD 


:FH 


?FD 


a 


LA 


PI 


2170 LOCATE 27,5: INPUT duree 
2188 LOCATE 21,10: INPUT capital 
2190 LOCATE 23,15: INPUT taux 


>ÀG 
:XP 


2209 taux = (1 + (taux / 194)1* (1/1 AP 


2) 
2218 t = taux-duree 
22320 va = capital * £ 


2239 LOCATE 46,1B:PRINT'VALEUR ACTU >KC 


ELLE : "32 PRINT USING'AHHHHER. Hs va 


2248 LOCATE 29,35 
2256 PRINT "isiuite - (i)mprimante 


2266 q$ = INÉEY# 


2276 IF a$= "s" DR a$="i" THEN 2586 : 


ELSE 2260 

2289 IF q$="s" THEN RUN 
229% li=i 

2366 GOSUE 499ÿ 

2319 GOTO 2266 


LEA ENONCE 


# PRET HHEEEEOMNNNNNNNNEE 
2336 MODE 2 

2346 LOCATE 36,2: PRINT'PRET" 

2356 LOCATE 16,4 

2569 PRINT'OUREE DU FRET :" 

376 LOCATE 14,6 


2386 PRINT'REMBOURGEMENTS (im) ensuel : 


2390 LOCATE 25,7 
2488 PRINT" {t)rimestriel * 
2414 LOCATE 25,8 
2426 PRINT" (siemestriel " 
2430 LOCATE 25,9 
2448 PRINT" (a)nnuel ü 
2458 LOCATE 19,11 
2460 FRINT'TAUX ANNUEL :" 
2478 LOCATE 10,13 


2486 FRINT"'seion banque, methode de : 


calcul du taux a retenir 

249% LOCATE 25,1é 

2564 PRINT"2- interets composes" 
2514 LOCATE 25,15 

2528 PRINT'{- interets simples" 


2536 LOCATE 14,19 

2548 PRINT'CAPITAL EMPRUNTE :" 

2554 LOCATE 19,21 

2566 PRINT'MONTANT ASSURANCE EN % ( 
ca=0.m4%i:" 

270 éssrerserenseses aus 


2586 LOCATE 26,4: INPUT duree 

2594 
s"sa$ 

2660 IF a$="m" OR a$ = "£" OR a$ = 


LOCATE 37,1G:LINE INPUT “choix : 


ALX 
LÀ 





“s" OR a$ = “a" THEN 2619 ELSE 259% 


2619 IF a$ = “m" THEN 2626 ELSE 263 >ZW 


C 

2629 d = duree *# 12 : du = j2: ec = >GH 
1 : GOTO 2689 

2639 IF a$ = "€" THEN 2446 ELSE 265 :7k 

(] 

2649 d = duree # à : du = 4: ec = 3 EF 
: 60TO 2685 

2659 IF a$ = "s" THEN 2668 ELSE 267 >20 


0 

2668 d = duree + 2 : du = 2: ec = 6 : 
: G60TO 2686 

2678 d = duree : du = 1 : ec = 12 

2684 LOCATE 23,11: INPUT taux 


2696 IF taux € 6 OR taux > 190 THEN >D6 
2680 

2760 LOCATE 48,17 ?LL 
2716 LINE INPUT "choix :";a$ 3YH 

2726 IF a$ = "{" OR a$ = "2" THEN 2 ?GL 
730 ELSE 2760 

2730 IF a$ = "1" THEN t = (taux / d >UQ 

u) / 196 ELSE t = ({ i + (taux/106) 

} ® (/du) ) - 1 

2746 LOCATE 28,19:INPUT capital AB 

2750 IF capital € 9 THEN 2749 WW 


2768 LOCATE 51,21: INPUT assur ?YW 
2778 IF assur € 0 THEN 276b ?TR 
2786 LOCATE 19,23 LE 
2796 INPUT "MOIS, ANNEE DE DEPART D >FG 
ES REMBOURSEMENTS :": depart 

2806 IF depart € 1 OR depart > 12 T : 
HEN depart = | 


2816 LOCATE 56,27 #LL 
2824 INPUT annee :LQ 
2836 ii annee © 1 OR annee > 99 THE HE 
N annee = i 

2849 LOCATE 29,25:FRINT "(siuite - ZW 
{imprimante 

2850 q$ = INKEYS ?U] 
2866 IF q$= “s" OR g$="i" THEN 2579 >HN 
ELSE 2850 

2876 IF q$="s" THEN 2960 QC 
2886 li = 1 ?FC 
289% GOSUE 4996 ID 
2008 sites eugessunss see ce 2 YD 
2916 loyer = (t / ( 1 - (1+t)*-d)) F6 
# capital 

2926 GOSUB 3939 YA 

2939 cpteur = depart: inte = D:ass= >YF 
ê:as = O:compteur = 4 

294% inter = 6 : amorti = à :assu = ?AG 
ÿ 

2956 FOR ii = i T0 d LR 


2760 PRINT #1, UGING'#4#H4H##"; 11 


2970 PRINT #7,USING"##";cpteur: :PRI : 


NT #7,",.": 

2986 PRINT #7,USING"##"; annee 

2998 PRINT #2,USING'##HH#H#H4#. #4": capi 
tal 

3606 interet = capital *# t 

3019 PRINT #3, USING'#HHHH#. fs inte 
ret 

3026 inte = inte + interet 

3930 inter = inter + interet 

3640 amort = loyer - interet 

3650 amorti = amorti + amort 

3666 PRINT #4, USING'#H#H#H4H#. ff: amor 
t 


3670 PRINT #5,USING “Ait. Hs loy à 


er 


u 
3090 PRINT #6, USING "AHHHHHE Has 


3106 ass = ass + as 
3119 assu = assu + as 
3126 capital = capital - amort 


3136 cpteur = cpteur + ec: compteur : 


= compteur + { 


3149 IF compteur = 25 THEN GOSUB 42 : 


14 ELSE 316b 

3159 GOSUB 3936 

3169 IF du = 1 THEN 3610 

3170 IF cpteur ; 12 THEN 3184 ELSE 
3614 

3186 cpteur = cpteur - 12: annee = 
annee + 

3190 IF annee > 99 THEN annee = 1 
3266 PRINT #1,"" 

3219 PRINT #2,"" 

3226 PRINT #3,"" 

3238 PRINT #4,"" 

3240 PRINT #5,"" 

3256 PRINT #6,"" 

3266 PRINT #7,"" 

3270 compteur = compteur + i 

3286 IF compteur = 25 THEN GOSUB 42 
16 ELSE 3386 

3296 GOSUB 3934 

3300 PRINT #1,"" 

3319 PRINT #2,"" 

3320 PRINT #3,"" 

3330 PRINT #4,"" 

3340 PRINT #5,"" 

3256 PRINT #6,"" 

3360 PRINT #7,"" 

3376 compteur = compteur + 1 

3380 PRINT #1,"" 

3396 PRINT #2,"" 

3409 PRINT #3SQUSING "AH. Hs int 





3680 as = ((capital + assur)/146)/d : 


#AC 
WI 
MU 


>YB 
?1B 
ID 
?2F 
32H 
?1K 
AB 
Ab 
WA 
?1K 
AB 
?CD 


e 

3419 inte = ÿ 3YH 
3420 FRINT #4,"" >IH 
3436 PRINT #5,"" ?1K 
3446 PRINT #6, USING “####h#.#f';ass :EB 
3450 PRINT #7,"" AD 
346b ass= ÿ ?PG 
3476 compteur = compteur + Î ?WB 
348% IF compteur = 25 THEN GOSUB 42 :MQ 
14 ELSE 3510 

3496 GOSUB 3936 >YD 
3599 GOTO 3616 MF 
3516 PRINT #1,"" ?1E 
3529 PRINT #2,"" 16 
3536 PRINT #3,"" 1] 
3549 PRINT #4,"" AR 
3590 PRINT #5,"" >AC 
3566 PRINT #6,"" AE 
3576 PRINT #7,"" AG 
3584 compteur = compteur + i >WD 


3596 IF compteur = 25 THEN GOSUB 42 >MU 
iÿ ELSE 3610 


3606 GOSUB 3930 ?XG 
3616 NEXT ii *EA 
3626 PRINT #3,"" HA 
3630 FRINT #4," >AÀ 
3648 PRINT #5,"" AC 
3654 PRINT #6,"" *ÀE 
36% PRINT #7,"" AG 
3676 compteur = compteur + HD 


3686 IF compteur = 25 THEN GOSUB 42 MU 
1ÿ ELSE 3700 


3696 GOSUB 3930 »vF 
3706 PRINT #1,"" MP 
3710 PRINT #2,"" ÿTH 
3720 PRINT #3,USING HW Hh'sint DCI 
e 

3730 PRINT #4,"" >AB 
3740 PRINT 45,"" +AD 


3750 PRINT #6,USING “AHHHHH#H#' ass BF 
3766 PRINT #7,"" AH 
3770 compteur = compteur + 1 WE 


3786 IF compteur = 25 THEN GOSUB 42 M4 


16 ELSE 3890 


3796 GOSUB 3939 YG 
3800 FOR 1 = 1 TD 2 ?CK 
3816 PRINT #(ij,"" LM 
3829 NEXT i 3VJ 
3836 FOR i = 3 105 DH 
3846 PRINT #(i),"-——------- : TD 
3856 NEXT i WE 
3955 PRINT #(6)," " TL 
3866 PRINT #7,"" AJ 


3876 PRINT #3, USING HE sint DL 
er 
3880 PRINT #4,USING "HHHHHHE.H#";amo ?EB 





rti 


3896 PRINT #5, USING “HA: loy :FP 
er *d 
3908 PRINT #6,USING “HH#HHHH.Hf'sass CA 
u 
3916 GOSUB 4219 3XC 
3928 RUN ÿCC 
AVAURE ET TT ESS SE SSSS ESS SC SC CSS 
PRÉCISES ESSES CSSS CSSS ST 
#+ 
3946 MODE 2 #0C 
399% LOCATE 3,1 2XF 
3966 PRINT STRINGS(7E,", UH 
3974 LOCATE 5,2 3YE 
3986 FRINT "NY DATE CAFITAL BY 
INTERETS  AMORTISSEMENT REMEOUR 
SEMENT ASSURANCE" 
399% LOCATE 3,3 3YE 
4696 PRINT STRING#(78,".) ;UT 
4814 WINDOW #1,2,7,4,24 QE 
4626 WINDOW #2,19,28,4,24 #TF 
4936 WINDOW #5,31,42,4, 34 2RF 
düdo WINDUW #4,45,56, 4, 4 3TE 
4950 WINDOW #5,59,68, 4,24 ?TH 
4664 WINDOH #6,69,79,4,24 :TE 
4676 WINDOW #7,9,16, 4,24 2RR 
468% RETURN FF 
ADO onariscimereseen tés Shan site YF 
4166 FOR i = 2 TO compteur-| ?VE 
4118 LOCATE 2,i : FRINT'I" UE 
4124 LOCATE 8,1 : PRINT''": :UJ 
4136 LOCATE 15,i : PRINT“'": ?VE 
4idé LOCATE 29,1 : FRINT' I": VE 
415 LOCATE 4i,1 : PRINT": 3VF 
4168 LOCATE 55, : PRINT": 3VH 
4174 LOCATE 69,1 : PRINT‘ I": >VÙ 
4184 LOCATE 79,1 : PRINT“I": :VW 
4196 NEXT 3LF 
4200 RETURN EE 
A2 HP ÂE 
ÉTÉ SES EEE RESSISESLSSSSSSSSSCSSS 
4226 GOSUB 4106 WF 
4236 compteur = À 3Lk 
4248 LOCATE 22,25 LC 
4250 PRINT "(siuite - (imprimante FU 
- avec (eintete" 
4266 q$ = INKEY$ 31F 
4379 IF q$= "s" OR g$="i" OR g$ ="e oUL 
“THEN 4286 ELSE 4268 
4294 IF q$="s" THEN RETURN UE 
296 IF g$ = "e" THEN li = i ELSE :AQ 
li=4 
4206 IF q$ = "i" THEN 43% dE 
4319 PRINT#8," LE PRESENT ECHEANCIE JF 


R N'A DE VALEUR QUE FOUR SA VALEUR 


INDICATIVE; EN AUCUN" 
4320 PRINT#8," CAS LE PORTEUR NE PO :FV 
URRA S'EN PREVALOIR. * 


4339 q$="" DJ 
454% ligne = li VB 
4356 FOR col = 1 TO 84 #NJ 
436ë LOCATE col,ligne pre) 
376 b$= COPYCHRS (#0) F1 
4386 q$= q$ + b$ FD 
4396 NEXT col PF 


44606 IF q$ = STRINGS(86," “j THEN 4 :CG 
45 


4416 PRINT #8,9$ ?FA 
4426 q$ = "" ED 
4438 ligne = ligne + i NF 


4446 IF ligne > 24 THEN 4456 ELSE à BL 
356 

4456 GOTO 4264 

CUP PTT SELS LCL LCLCECECSC EL 
# V ACQUISE SUITE AHHHHHREHENNRE 
#44 

4479 MODE 2 

4480 LOCATE 26,2:FRINT'VALEUR ACQUT : 
SE FAR UNE SUITE DE VERSEMENTS" 

4496 GOSUB 4514 3XE 
4509 GOTO 4826 
4519 LOCATE 16,6 
4524 PRINT'NOMERE DE VERSEMENTS :* ‘EM 


> 
6 


4534 LOCATE 14,8 *EÀ 
4546 PRINT'VERSEMENTS tm/ensuei #JF 
455% LOCATE 21,9 EF 
4568 PRINT" (trimestriel AN 
457% LOCATE 21,16 LE 
4589 PRINT'{s)emestriel ‘ ?1E 
459% LOCATE 21,1 LE 
4668 PRINT" {(a)nnuel , :WG 


4619 LOCATE 14,15 Li 
4629 PRINT'TAUX ANNUEL :° ?VR 
4634 LOCATE 14,18 LE 
4649 PRINT'MONTANT DES VERSEMENTS : 3H] 


485% LOCATE 32,6: INFUT duree 3EX 
4ôbë LOCATE 37,12:LINE INPUT "choix LA 
"sat 

4ë7ë IF a$="m" OR a$ = "£" OR a$ = EE 
"s" OR a$ = "a" THEN 4684 ELSE 4660 


4686 IF at = “m' THEN 4696 ELSE 476 :70 
() 

4696 d = duree + 12 : du = 12: GOTO :EHL 
4750 

4706 IF a$ = “t" THEN 4716 ELSE 472 
ÿ 

4719 d = duree *# 4 : du = 4: GOTD à 
756 

4726 IF a$ = "s" THEN 4736 ELSE 474 70 


?iK 


IR 


15 we 





ô 

| 4738 d = duree # 2 : du = £: 6010 à ?2F 
75û 
4749 d = duree : du = {| 3NM 
475% LOCATE 23,19: INPUT taux #XU 


4760 IF taux £ 6 OR taux > 166 THEN >DG 
4750 


4778 LOCATE 34,18 LR 
4786 INPUT capital ?NH 
4796 IF capital © & THEN 4770 V6 
4006 t= (( 1 + (taux/160)} * (1/dui Ab 
A 

4810 RETURN +F6 
4824 loyer = ((t(i+t)"dureei-1}/ti# KV 


capital 

483% LOCATE 46,24:PRINT'VALEUR ACQU :ZA 
ISE "se PRINT USING. Hs loy 
er 

4844 LOCATE 29,25 

4856 FRINT “(siuite - (imprimante EF 
4866 q$ = INFEYS *AB 
4870 IF q$= "s" OR g$="i" THEN 4888 :H: 
ELSE 4866 


4886 IF q$="s" THEN RUN >4À 
489% li =1 FF 
4966 GOSUE 4998 3YH 
4919 G0TO 466û 2Nk 
4920 HET YH 


# V ACTUELLE SUITE HE 
#44 

4938 MODE 2 :QC 
4948 LOCATE 24,2:PRINT'VALEUR ACTUE UL 
LLE D'UNE SUITE DE VERSEMENTS" 

4956 GOSUE 4515 YA 
4988 lover = ((1 - ((1+t}"-duree)) MC 
Î & j # capital 

4976 LOCATE 46,26:FRINT®VALEUR ACTU :EG 
ELLE 25: PRINT USING ##itt, ##f: lo 
yer 

4980 GOTO 484% 

4990 HIHHHPEHHNBPPNNPPHE TE 
+ imprimante FH 
FH 


5000 q$="" DD 
5616 FOR ligne = li TD 24 >RH 
5626 FOR col = 1 TO 8 ND 
9636 LOCATE col,ligne :QV 
5649 b$= COFYCHRS (#0) >FÜ 
5050 q$= dé + bé sEJ 
Sûb NEXT col FA 
576 PRINT #8,9$ FD 
5080 q$ = “" :E6 
5998 NEXT ligne >HH 
516 RETURN ?EK 


SALOPE XE 
APP EPPPEEEHEHNPEE 


#4 @ 
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plus courantes sur 
| le marché : les 


bagues dont la 
« valeur se calcule par 
« le célèbre code des 
M couleurs. 


@Emmanuel GUILLARD 


Pour les électroniciens en herbe, un 
petit cours est inclus dans le 
programme, afin qu’ils comprennent 
à quoi sert une résistance et la façon 
de calculer sa valeur. 

Une notice y est comprise. Comme elle 
est un peu succincte, je vais vous la 
détailler : 

L'écran se décompose en cinq ta- 
bleaux : 

A droite : le tableau dit ‘‘de travail”. 
C’est dans cette fenêtre que se déroule 
le programme. 

Au milieu, en haut : le tableau dit ‘‘de 
résultats’’. La valeur de la résistance 
calculée'ainsi que les couleurs corres- 
pondantes y sont inscrites. 

Au milieu, en bas : l’indispensable 
tableau des couleurs indiquant les dif- 
férentes couleurs et leur numéro 
correspondant. 

À gauche, en bas : second tableau 
indispensable : celui des multiplica- 
teurs. Ÿ sont indiquées les valeurs de 
multiplicateurs de chaque couleurs : 
or, noir, marron, rouge, orange, 
jaune, vert et bleu. 








Lie PU! RESISTOR VALEUR : ds 
vaio AbA : maps 
cc 
Ei | ÉD CUES COULEUR 1 : NOIR 
V : COUL2/CHIFÉ 
BN : COUL I. Paie 
ENTER : VALIDER NOIR NOIR OR 
NULTIPLICATEURS TABLEAU DES COULEURS 
| | CT COULEUR 2 : NOIR 
: RESISTOR est un & 
; 7 1'- MARRON 6 - BLEU 
| programme destiné Se: dub 
ge calculer la ie dE S-GRIS | COULEUR 3 : 
es résistances les à ; 
É &- JAUNE 3 - BLANC | MODE : COULEUR 





RARES A ds ? 2 
a lo RTE À 





















a &e 4 PER 
Tableau renfermant chacune des cou- 


È me: #fi : 
(3 “ CU DES AL Elle PR S RAR Te Ar A 
COULS (10) 
leurs, numérotées de 0 à 10 
MULT$ (7) 


NRCL (10) 


MDEC 


MDCS 


LIGNE 


VALEURI$ 
VALEUR?2$ 
Assemblage de VALEURI$ et 


VALEUR3$ 
VALEUR?2$ dans cet ordre 
VALEUR Valeur de la résistance 


19 
















Tableau renfermant les valeurs 
alphanumériques des multiplicateurs 
correspondant aux couleurs, numé- 
rotées de 0 à 7 


Tableau renfermant le numéro de 
chacune des couleurs 








Variable correspondant au MODE 
DE TRAVAIL 

MDEC = 1 : mode couleur 

MDEC =2 : mode chiffre 





Valeur alphanumérique du mode de 
travail : couleur ou chiffre 















Variable indiquant le sous- 
programme à brancher, suivant le 
mode, après appui sur une des tou- 
ches du menu. 


Valeur alphanumérique du n° de la 
1ere couleur 













Valeur alphanumérique du n° de la 
2° couleur 









CE RL AURAS (RAF RE: 121 





A gauche, en haut : le tableau récapi- 
tulatif des touches à utiliser et leur 
effet. 


UTILISATION 

Ce programme fonctionne suivant 
deux modes différents : 

a. Mode couleur : on entre chacune 
des couleurs et l’ordinateur calcule la 
valeur correspondant à l’association 
de ces couleurs. 


Remarque : le programme débute 
sous ce mode. 
b. Mode chiffre : cette fois on entre 
les deux premiers chiffres et la valeur 
du multiplicateur, le tout pour obte- 
nir les différentes couleurs. 
Les touches : 
Z - X : choix de la première couleur 
ou du premier chiffre suivant le mode. 
C - V : choix de la seconde couleur 





5 CALL SBB4E:CALL MBBGO >QT 
(| ICRA LA 
2 ‘ LE 
LE 
#5 ' à LD 
56 LE 
60 ‘ LF 
7 LG 
8 : >LH 
90 : om AJ 
16 >RE 
119 ‘ MODE D'EMPLOI >RC 


120 MODE Z:BORDER 4:INE 0.0: INK 1.1 C7 
+ 

150 LOCATE 24,Z:PRINT "RE SI ST :;1A 
DR (c) 1987 EG," 

146 LOCATE 8,7:PRINT “COMME SON NOM :KH 
L'INDIQUE , RESISTOR EST UN PROGRA 

MME TRAITANT" 

150 LOCATE 8,9:PRINT "CES COMPOSANT >VU 
S ET PLUS PARTICULIEREMENT LE CA 
LCUL DE LEUR" 

160 LOCATE 8.11:PRINT "VALEUR ." AY 
170 LOCATE 8,13:PRINT "SON UTILISAT :2V 
ION EST SIMPLE : IL SUFFIT DE PRESS 

ER LES TOUCHES" 

180 LOCATE 8.15:PRINT "CORRESFONDAN :CD 
TES POUR CHANGER LA VALEUR OU LA CO 
ULEUR AFFICHEE ." 

196 LOCATE 8,17:PRINT "LA VALIDATIO GA 
N SE FAIT À L'AIDE DE LA TOUCHE EN 

TER>. " 

200 LOCATE 1,25:PRINT “UNE TOUCHE . >YX 
..":CALL RBBO6: CLS 

219 LOCATE 24,2:PRINT "RES IST 21 

DR  (c) 1987 E.G." 

220 LOCATE 28,4:PRINT “NOTION DE RE ?PZ 

SISTANCE" 


ou du second chiffre, suivant le mode. 
B - N : choix de la troisième couleur 
ou du multiplicateur, suivant le mode. 
ENTER : validation après choix des 
trois couleurs* ou des deux chiffres 
+ multiplicateur, suivant le mode. 


RESULTAT 

Le résultat s’affiche dans le tableau 
des résultats : on obtient la valeur de 
la résistance cherchée et les trois 
couleurs, à lire de gauche à droite 
pour les avoir dans l’ordre, 
correspondant à la valeur. 


* En effet seules trois couleurs sont 
utilisées alors que sur une résistance, 
il en existe une quatrième, un peu plus 
espacée des autres qui correspond à la 
tolérance. Elle n’est pas indispensable, 
c’est pourquoi elle n’est pas 
représentée dans le programme. 


23è LOCATE 8,6:PRINT "UN RESISTOR E >UH 

ST UN FETIT COMPOSANT UTILISE EN EL 

ECTRONIQUE " 

240 LOCATE 8,8:PRINT "ET QUI À POUR 
EFFET DE LAISSER FLUS OÙ MOINS BIE 

N PASSER LE" 

250 LOCATE 8,19:FRINT "COURANT ELEC 

TRIQUE . IMAGINEZ UNE CANALISATION 
ENTARTREE :" 

264 LOCATE 8,12:PRINT "L'EAU EFROUV 
E PLUS OU MOINS DE MAL À PASSER A T 

RAVERS CELLE-" 

279 LOCATE 8,14:PRINT "CI . LE RESI :2N 

STOR CORRESPOND DONC À CE PETIT TUY 

AU ET LA RESIS-" 

286 LOCATE 8,16:PRINT "TANCE DE CE >CU 
RESISTOR CORRESFOND AU TARTRE DU TU 

YAU.LA RESISTAN-" 

290 LOCATE 8,18:PRINT "CE S'EXPRIME AG 
EN OHM (":CHR$(191):") ET SE CALCU 

LE EN MULTIPLIANT" 

306 LOCATE 8,26:PRINT "L'INTENSITE >Yü 
(EN AMPERES) PAR LA TENSION (EN VOL 

TSi DU COURANT" 

316 LOCATE 8,22:FRINT "QUI FARCOURT ;RB 
LE RESISTOR, D'OU LA CELEBRE FORMU 

LE :R=U/T " 

329 LOCATE 8,24:PRINT “(R=RESISTANC ?N4 
E.U=TENSION. I=INTENSITE) .* 

336 LOCATE 1,25:PRINT “UNE TOUCHE . :YB 
..":CALL &BBO6:CLS 

340 LOCATE 24,2:PRINT 'RESIST ;2D 
OR (c) 1987 E.G." 

35û LOCATE 28,4:PRINT "NOTION DE RE >PD 
SISTANCE" 

366 LOCATE 8,6:FRINT "UN RESISTOR À >UH 
UNE FORME CYLINDRIQUE ET 3 BAGUES 

DE COULEURS" 


?UE 


ca 


UE 


nu 


WR 


ne 





CHARGEMENT 
Taper le listing qui suit et le 


sauvegarder le nom de 
‘“RESISTOR”’’. 

Il ne restera plus qu’à faire 
RUN’’RESISTOR’’ pour lancer ce 


programme. 


AVERTISSEMENT 

Pendant la frappe du listing, ne vous 
amusez pas à taper un RUN, car la 
première ligne contient l’appel d’une 
routine qui inhibe les interruptions 
(autrement dit il n’est pas possible de 
faire un break !). De même, à la fin, 
sauvegardez avant de lancer, sinon 
vous seriez obligé de faire un reset 
total de la machine. Facheux, non ? 
C'était plus fort que moi, je n’ai pas 
pu y RESISTER ! (Je sais, c’était 
facile mais je tenais quand même à la 
sortir). 


sous 


376 LOCATE 8,8:PRINT "SONT PEINTES 7H 
SUR CELUI-CI . CES COULEURS PERMETT 

ENT DE CONNAI-" 

306 LOCATE 8,10:PRINT "TRE LA VALEU >MC 
R DE LA RESISTANCE . ON PROCEDE CÜM 

ME CECI: " 

390 LOCATE 18,12:PRINT "BAGUE 1:CHI ?LM 
FFRE i" 

490 LOCATE 18,14:PRINT “BAGUE 2:CHI *LH 
FFRE 2" 

416 LOCATE 18.16:PRINT "BAGUE 3:MUL ?UE 
TIPLICATEUR" 

426 LOCATE BB: PRINT "EX: 1:ROUGE ZT 
Z:ORANGE 3: VERT" 

43% LOCATE 8,26:PRINT “VALEUR = (RO :GZ 
UGE+ORANGE ) VERT =(2+3)#100000=23#1 
00000=2300006 *;CHR$ (191) 

44% LOCATE 1,25:PRINT "UNE TOUCHE . >YD 
..":CALL RBBO6:CLS 

45% LOCATE 24,2: PRINT "RE SI ST :>2F 
OR  (c) 1987 E.G." 

469 LOCATE 8,6:PRINT "UTILISATION D >UA 
U PROGRAMME : DANS LE TABLEAU EN HA 
UT À GAUCHE" 

470 LOCATE 8,8:PRINT "SONT INDIQUEE 
S LES TOUCHES À PRESSER ET LEUR EFF 
ET ."* 

406 LOCATE 8,16:PRINT "LE TABLEAU D 
U DESSOUS INDIQUE LES NUMEROS DE CH 

AQUE COULEUR" 

490 LOCATE 6,12:PRINT "ET LEUR VALE AE 

UR DE MULTIPLICATEUR . À DROÏTE LE 


HE 


AR 


Wv 


x 


990 LOCATE 8,14:PRINT "CHAQUE COULE 
UR ET LEUR NUMERO CORRESPONDANT . À 
U DESSUS EST" 

910 LOCATE 8,16:PRINT "DESGINEE UNE 
RESISTANCE AVEC SES 3 BAGUES ET LA 


TH 


… 





COULEUR DE" 
324 LOCATE 8,18:FRINT "CHACUNE D'EL >ZE 
LE EST PRECISEE . PLUS HAUT EST INS 
CRITE LA VALEUR" 

30 LOCATE 8,20:PRINT "DE LA RESIST : 


ANCE . ENFIN À DROITE SE TROUVE LA 
FENETRE DE TRA-" 

049 LOCATE 8,22:PRINT "VAIL QUI PER : 
MET DE CALCULER LA VALEUR OÙ DE DON 
NER LA COULEUR" 


994 LOCATE 8,24:PRINT "SUIVANT LE M : 


ODE CHOISI (TOUCHE <C>: MODE CHIFFRE 
S OU MODE COULEURS)" 


969 LOCATE 1,25:PRINT "UNE TOUCHE . : 


974 CALL &BB66 


98% BORDER 9: INK 9,9: INE 1.6 ; 


990 MODE 2 

6ÿ0 ‘ DESSIN DE LA RESISTANCE 
6i9 ORIGIN 239,356 

620 DEG 


630 FOR F4=76 TO 290:PLOT COS(F4)#1 


2,5IN(F#4)#12:NEXT 

64ÿ PLOT 4,11:DRAWR 30,6 

650 PLOT 4,-11:DRAWR 50,0 

6b% PLOT 14,11:DRAWR 6,-190 

67% PLOT 9,11:DRAWR 6,-B0:DRAWR -50 
,720 


680 PLOT 19,11:DRAWR 9,-80:DRAWR 59 : 


,-20 
499 PLOT -12,0:DRAMR -40, 0 

708 ORIGIN 288,356:FOR F=1 TO 110: 
PLOT COS(F%)#12, SIN(FZ)#12:NEXT 


716 FOR F4=256 TO 360:FLOT COS(F4)# > 


12,SIN(F4)#12:NEXT 
720 PLOT 12,6:DRAUR 46,9 
730 ‘ DESSIN ENCART DES TABLEAUX 


749 ORIGIN 0,0:DRAWR 639,0: DRAUR 0, : 


399:PLOT 0,0:DRAUR 0,399:DRAUR 639, 

Ô 

750 PLOT 166,0: DRAMR Ÿ, 399 

7bù PLOTR -164,-169:DRAUR 399, 0: PLO 

TR @,-30:DRANR -399,0:PLOTR 399, 199 

:DRAMR 0,-399 

770 LOCATE 22,10:PRINT "NOIR" 

780 LOCATE 30,10:PRINT "NOIR" 

79 LOCATE 38,16:PRINT "OR" 

800 LOCATE 28,2:PRINT "VALEUR : à 
“:CHRS(191) 

810 ‘ TABLEAU DES COULEURS 

820 LOCATE 26,12:PRINT "TABLEAU DES 
COULEURS" 

830 LOCATE 24,15:PRINT "6 - NOIR 
5 - VERT" 

840 LOCATE 24,17:PRINT "1 - MARRON 
& - BLEU" 

850 LOCATE 24,19:PRINT "2 - ROUGE 
7 - VIQLET" 


À LA 


YH 


GE 





B6Ô LOCATE 24,21:PRINT "3 - ORANGE 
8 - GRIS" 

870 LOCAIE 24,23:PRINI “4 - JAUNE 
9 - BLANC" 

886 ‘ TABLEAU DES MULTIFLICATEURS 

B99 LOCATE 4,13:PRINT “MULTIFLICATE 

URS" 


900 LOCATE 2,15:PRINT "@ - x 1 “:CH : 
R$(191) 

910 LOCATE 2,16: PRINT "1 - x 16 "sC 
HR$ (191) 

920 LOCATE 3,17:FRINT "2 - 


CHR$ (191) 

958 LOCATE 2,18:PRINT "3 - x 
:CHR$ (191) 

940 LOCATE 2,19:PRINT "4 - x 
"sCHR$ (191) 


19960 


950 LOCATE 2,20:PRINT "5 - x 100006 : 
":CHR$ (191) 

969 LOCATE 2,21:PRINT "6 - x 190609 

à “:CHR$(191) 

970 LOCATE 6,23:PRINT "OR : x 6.1 ": 


+CHR$ (191) 

980 ‘ TABLEAU EXPLICATIF 

990 LOCATE 3,2:PRINT "'RESISTO 
F" 

1900 LOCATE 2,6:PRINT "Z X : 
CHIFI" 


1916 LOCATE 2,7:PRINT "C V : COUL2/ : 


CHIF2" 


1928 LOCATE 2,8:PRINT "B N : COUL3/ Kk 


MULT. " 


1934 LOCATE 2,16:PRINT "ENTER : VAL : 


IDER" 

1940 INK 9,13 

1950 ‘ FENETRE TRAVAIL 
1969 WINDOW #1,51,79, 2, 24 
1970 CLS #1 


1989 DATA OR,0.1,9,N0IR, 1,1, MARRON, F1 


19,2, ROUGE, 100, 3, ORANGE, 1000, 4, JAUN 


LE, 19008, 5, VERT, 109000, 6, BLEU, 109000 


0,7, VIOLET, ,8,6RIS, ,9, BLANC, 

1990 RESTORE 1080 

1109 READ COULS (0) ,MULTS (0) 

1116 FOR F=1 TO 10:READ NRCL(F) ,COU 
LS(F),MULTS (F):NEXT 

1129 MDEC=1 

1139 LOCATE #1,19,12:PRINTH1, "UNE T 
OUCHE" 


1149 CALL &BB06:G0SUB 1219: MDC$="CH : 


IFFRE":60T0 1198 

1150 K$=INKEYS: IF K$="" THEN 1150 
1160 IF UPPER$(K$)="C" THEN MDEC=MD 
EC+i:IF MDEC}2 THEN MDEC=1 

1170 IF MDEC=1 THEN MDC$="CHIFFRE" 
ELSE MDC$="COULEUR" 

1186 ON MDEC GOSUB 1216, 1438 


190 LOCATE #1,3,23:PRINT#1, "MODE : 


15 


x 196 "3 5LK 


1908 " > 


COUL1/ 








“eMDC$:" TOUCHE <C:" 
1269 GOTO 1150 
1219 ‘MODE COULEUR 
1229 LIGNE=1 
1236 CLS#1:LOCATE #1,3,23:PRINT#1," 
MODE : COULEUR" 
1246 F=1:6=1:H=ù 


1259 LOCATE #1,3,5:PRINT#1, "COULEUR > 


1 : ";COULS$(F): SPACES(6-LEN(COUL# ( 
F})) 


1260 LOCATE #i,5,13:PRINT#i, *COULEU 


2 : "sCOULS(G) ; SPACES (é-LEN(COULS 
(6)}) 
1279 LOCATE #1,3,26:PRINT#1, “COULE"'| 
R 3 : ":COULS(H) ; SPACES (é-LEN(COULS$ 
(H)}) 
1286 K$=INKEYS$: IF K$="" THEN 1280 


1299 IF UPPERS(K$)="2" THEN F=F-{: 1 : 


F F£i THEN F=19 


1309 IF UPPER$(K$)="X" THEN F=F#1:1 3 


F F:19 THEN F=1 
1319 IF UPPER$(K$)="C" 
F 6£1 THEN G=i4 


THEN G=G-i: 1 : 





>UH 
>XG 
:FH 
SUI 


?CX 


1326 IF UPPERS(K$)="V" THEN G=6+1:1 >ük 


F 6>19 THEN G=1 
359 IF UPPERS(K$)="E" 
F H£6 THEN H=7. 
1346 IF UPPERS$(K$)="N" 
F H:7 THEN H=û 
1356 IF K$=CHR$(13) THEN 1376 
1366 ON LIGNE GOTO 1256, 1476 


1370 VALEUR1$=STRS$ (NRCL (F3 ) : VALEUR2 :X 


$=STR$ (NRCL (G) } : VALEUR3$=VALEUR 1 $+V 
ALEUR2$ : VALEUR=VAL (VALEUR3$ ) #VAL (MU 
LT$(H)) 


1580. LOCATE 22,14:PRINT COULS$ (F):5P 


ACES$ (&-LEN(COULS (F} ) 


1390 LOCATE 30,19:PRINT COULS (G);SP : 


ACES$ (6-LEN(COULS (6) ) } 


1400 LOCATE 38,10:PRINT COULS (H):SP : 


ACES$ (&-LEN (COULS$ (H) ) } 


1410 LOCATE 37,2:PRINT VALEUR; CHRS ( 


32) ;CHR$ (191) ; SPACES (11-LEN(STRS (VA 
LEUR) +CHR$ (32) +CHR$ (191) )) 

1426 RETURN 

1436 ‘MODE CHIFFRE 

1446 LIGNE=2 

1450 F=1:6=1:H=û 

1469 CLS#:LOCATE #1,3,23:PRINT#I," 
MODE : CHIFFRE" 


1476 LOCATE #1,5,5:FRINT#1, "CHIFFRE > 


1 : "sNRCL(F) 

1480 LOCATE #1,5,13:FRINT#1, "CHIFFR 
E 2 : ";NRCL(G) 

1496 LOCATE #1,2,20:PRINT#1, "MULTIP 
LICATEUR : "sMULTS(H) ; SPACES (B-LEN( 
MULTS (H))); 

1590 GOTD 1280 


THEN H=H-1:1 


THEN H=H+i:l : 


& 


ne 
= 


:VQ 


3VA 


PE 


ME 








Voici un programme de démonstration de 
division (sans virgule) avec participation de 
l'élève. 

L'enfant choisit un dividende et un diviseur 
de 6 chiffres maximum. L'ordinateur dessine 
la division et demande le premier quotient, 
s’il est bon l'ordinateur pose la soustraction 
et le reste et attend le quotient suivant. 


i l'enfant trouve du 
premier coup il gagne 5 
centimes (variable c$ 


définie par les symboles du début) et 
la somme gagnée s’affiche en fin de 
partie ; donc élève surdoué s’abstenir. 


S ‘tt DIVISION ###4#4 FE 
19 SYMBOL 248,0,06,3,28,32,64,128,12 >CA 
8 

24 SYMBOL 249,0,126,129,0,126,98,96 :;D2 
0) 

36 SYMBOL 250,0,0.192,56,4,2,1.1 #YA 
44 e$=CHR$ (248) +CHR$ (249) +CHR$ (250) 


50 SYMBOL 251,128, 128,192,96,60,31, >DN 
69 SYMBOL 252,6. 102, 60, 0,0, 129,255, >DA 
126 

78 SYMEOL 253,1,1,3,6.60,248,192.0 ?AF 


84 F$=CHR$(251)+CHR$(252)+CHR$ (253) >BM 


96 ch=e$+CHR$ (8) +CHR$ (8) +CHR$ (8: +CH 
R$(19)+F$ 


>KH 


La partie musicale en fin de liste est 
censée rappeler la chute d’une pièce de 
monnaie, vous constaterez qu’elle est 
perfectible, je fais confiance pour cela 
à l’imagination des lecteurs. 


196 PRINT CHR$ (7) 
116 ON ERROR GOTO 166 2FY 
126 MODE 1 :WINDOW #3.6,40,6.25:2=0 >0J 
:resut=û:s=0 

138 WINDOW #4.26,39. 14,24 
14% WINDOW #5,30,3B.6,15:PEN #5,2 1] 
156 WINDOW #2,5.35.2,4:PAPER #2,2%:P PT 
EN #2,3:CLS #2 

166 FOR i=i TO b:ali)=0:a$(1)="O":N FE 
EXT i 

170 LOCATE #2,10,2:PRINT #2,"D I V 
ISION 

180 PEN 1:PAPER 0:BORDER 19 >V0 
196 LOCATE 19,19:INPUT “dividende { >GN 
max=6) “:a$:al=LEN(a$) 

266 FOR i=i TO al:am$(ii=MID$(a$. 1, 
1):1F ASGC(am$(i)}<48 OR ASC (am$(1}}) 
>57 THEN 106 ELSE NEXT i 


pe 


?XH 


Î 





216 IF al:6 THEN CLS#S:LOCATE 14.26 


“PRINT “dividende trop grand'":60T0 
194 


224 LOCATE 14,12: INFUT "diviseur ma : 


#=6) “:b$:1=LEN(b$) 

256 FOR j=i TO l:bm$#(i=MID$ib$. 1,1 
j:1F ASC(bm$(ii<4g OR 4SC(om$ (1: : 
97 THER 166 ELSE EXT 

246 IF 16 THEN CLS#3: LOCATE 14,22 
PRINT “diviseur trop grand!":G60T0 

220 

294 PO=1+i:dif=al-l:wi=19-al-i 

266 WINDOW #i,wi,19,6.12+3#D1t 

274 a=VAL (a$} :b=VAL (b$) 

286 IF b=1 THEN LOCATE 16,24: FRINT 

“petit rigolo !":FÜR 1=1 T0 iGGuiNE 
XT 1:CLS#3:6070 224 


296 IF aïb THEN LOCATE 14 ,Z4:FRINT : 


"dividende € a diviseur" :FOR 1=i 
TO 1900: NEXT 1:CLS#3:6070 196 
366 GUSUE 629 

310 restet=a$:reste=a 


324 FOR 1=1 TO alta$ii)=LEFT#(ag. 1} : 


ta(i)=VAL(a$iil)iNEXT 1 


336 FOR 1=1 TO l:b$iii=LEFT# (DS. ii: à 


biii=VAL(b#(ii}:NEXT i 

346 n=i:m=ù 

356 IF n°1 THEN GOSUR S8b:ELSE c=i 
366 FOR i=i TO LEN(restet) 


370 reste$(i)=LEFTé (restes. 1i:reste :BX 


(1)=VAL (reste$(1)) 
380 NEXT :i 


390 IF reste(l)£b AND reste(i+ii<oé à 


AND n=1 THEN c=2:1=1+1:po=poti 


406 IF n>1 AND restelc)£=b(i} AND r : 


este(c+i){39 THEN c=c+i 

416 resu=reste(c)/b(i):resu=FIX(res 
u} 

420 IF n=1 THEN reste=reste(li:rest 
e$=STR$ (reste) :PLOT 288B-ib#al,304:1 

e= (LEN(reste$)-1)#16:DRAWR le,0,3: 
DRAWR 0.16: DRAWR -1e,6:DRAWR 0,.-i6 


456 IF n>1 THEN lec= LENtresteticii 
-1:DRIGIN wi#i6.19#16:FLOT (p-1)#16 
.16#(1-q):DRAUR lec#ib, 6: ORIGIN 4.6 
:MOVE 336,364: DRAWR 16,0 

446 IF resuxb>reste THEN resu=resu- 
1:60T0 446 


458 ORIGIN 6,0:MOVE 422,8: DRAW 634, 


8,3: DRAM 634,206: DRAM 472, 200: DRAM 
422,8: j0=0:GOSUB 834 


460 resut =resut+{ô+resu:LOCATE 21, : 


B:PRINT resut 


476 aa=resuxb:aa$=STR$ (aa) : x=LEN(aa 


$i-1 
48 reste=reste-aa 





VA 


>EF 


HG 


NC 


2NR 


QE 


496 reste$=STR$ (reste) :rx=LENtreste 
$)-1 

366 p=po-x:q=n+ti:Pq=aa: GOSUE 748  :EJ 
510 a=q+1:LOCATE #1.p+i.a:FEN #1,2 :YF 
!PRINT #1,STRINGS (x, CHARS (154) ; : PEN 
#i,i 

920 p=po-rx:q=qtispq=reste: GOSUE 74 : 
ÿ 

939 IF a(l+{+a)=0 THEN GOSUE 764:60 :Hü 
SUE 996 


Le 


544 IF resterd THEN p=p+i TV 
390 reste=reste#i0+(a(l+itmi-iaiitm :JE 
)#14)) 

Jéû reste$=STR$ (reste) :pq=reste: 005 M5 
UE 744 

74 n=n+i:m=mti:GÜTD 35% :TH 
598 ce NE 
399 FOR 1=i TD LEN(a$) 2FJ 
686 resteli)=birestes(i}="0" :X0 
&ié NEXT 1 2NF 
626 po=pot+i: RETURN FF 
bd CLS #5 *EJ 
66 FEN 2:FOR 1=1 TO 3#dif+i VF 
654 LOCATE 24,5+1:PRINT CHR$(I49):N HD 
EXT 1 

béà LOCATE 24,7:PRINT CHR$(IS1) 3ŸE 


674 FOR i=i T0 i+dif NN 
686 LOCATE 26+1,7:PRINT CHR$ (ISA) :N HE 
EXT 1 

699 FEN 1:LOCATE #1,2,1:FRINT #1. à ?BR 





EM + 


74 LOCATE 22,6: PRINT b$ 3TE 
716 PRINT #5. “tete 3YE 
“# GCÛRE **: 
“4 +" 
14 
#". u 
ÉSÉLÉÉSES 
724 LOCATE # 3,3,4:FRINTHS. 5c0 #YC 
738 RETURN 31F 
749 IF p=b THEN F=i ME 


75% LOCATE #1,p,a:FRINT #1.paq:RETUR :FR 
N 

768 PRINT CHR$(7):FEN 2: PAPER 3 2YF 
778 LOCATE Z1,8:PRINT CHR$(Z4i:resu :FL 
t: 
789 FOR 1=i TO ZUG:NEËT 1 :R 
198 2=2+] 3H 
866 IF 12:16 THEN 776 ELSE PRINT C DE 
HR$ (24) :GOSUB 946: RETURN 

Bi PAPER G:PEN ji: RETURN AUC 
824 FOR h=1 TO 1266: NEXT h:CLS#4 3£k 
8356 PRINT #4."combien de fois":b." ;{U 
dans':reste 

848 LOCATE 22+m,8: INPUT “,] 3KE 
B5& IF j £iresu AND j0=3 THEN CLS# GA 
A: PRINT# 4, "non c'etait":resu: 10=û: 
RETURN 

B6û IF jéresu THEN CLS # 4:PRINT# 4 : 
"non trop petit","reessave": j0= 


É 
= 


rc GS 


Lil 


LES COMMANDES 


e Flèches G & D : choix du sens de 
formation du train au niveau de la 
page de présentation. Ensuite 
déplacement du curseur sur les 
formes ou les couleurs. 





e ESPACE : pour valider. 

e COPY : pour corriger (efface le 
dernier wagon affiché). 

+ ESCAPE : pour revenir à la page 
de présentation 

ee O& N ; rejouer ou abandonner 
en fin de partie. 


de 





10+i:G60T0 826 
876 IF j=resu AND j0=8 THEN CLS # à :Qk 
:PRINT # 4,"oui":GOSUE 924: RETURN 


886 IF j1=resu THEN CLS#4: PRINT #4.C :E0 
HR$ (7: : "oui": RETURN 
898 IF j'resu AND ji=resteic)/bil)A ER 
ND resu £:4 THEN CLS#4:FRINT# 4,"no 
n Mails Jj aural fait la meme e 
rreur":PRINT# à, "reessaye": jo=joti: 
60TO B24:ELSE CLS #4:FRINT # 4. "non 
trop grand”"."reessaye"“: Jo=)0+1! 
GOTO E2ÿ 
966 PRINT#4, “une autre ? (o/n)" :DV 
914 J$=INKEYS: IF UPPERS(#)="0" THE EU 
N 9 ELSE IF UPFERSII$)="N" THEN 
936 ELSE GOTO 916 
929 GOSUB 946:s=5+i:SC0=5C0+5: LOCAT :Uÿ 
E 3,6+n:FRINT cé:LOCATE #5,3,4:FRIN 
T#5, SCO: RETURN 
936 CLSH4: PRINT #4,"tu as qagne ‘:5 :NK 
co: ‘centimes: sco=û: END 
Gdu ENT 4,1,4,.1: ENV 41.13.1412, -1 :GE 
ENV 5,1,13,1,1,6,16,12,-1,4 
958 SOUND 129,16,6,15,4,4,5:F0R 1=1 ?AF 
TO 166:NEXT 1:SOUND 129,34,9,15,4, 
4,5:FOR 1=1 TO 196:NEXT 1: 
966 SOUND 129,32,0,15.5,4,5:F0R 1=i :21J 
TO Z4G:NEXT i:RETURN 


78 END ?TK@ 


LE PETIT 
TRAIN 


Il s’agit d’un éducatif 
de niveau maternelle 
(formes & couleurs), 
inspiré (fortement) 
d’un programme paru 
dans ‘‘MOS POUR 
TOUT PETIT”’ de D. 
NIELSEN. 

Le but est de 
reconstituer un train 
en formes et en 
couleurs. 





@Pierre MAROT 


1ÿ ‘ LE PETIT TRAIN - Pierre 
MAROT (d'apres D.NIELSEN) 

2 ‘ 

3 ON BREAK GOSUB 49:60T0 114 

49 RUN 


SO HAE MODE D'EM : 


PLOI HEART 
LELSS RS LS ESS 


6ù : Choix du sens d'a : 
rrivee des voitures 

70 ‘ : Deplacement de 1a : 
fleche 

89 ‘ ESPACE : Valider 

96 ‘ COPY : Annuler la dernie 
re voiture 


196 ‘ ESC(2 fois}: Retour au choix 
du sens d'arrivee des voitures 


110 HN INT PRE 


TIALISATION MUSIQUE - 23H 
HE 


126 DIM gamme# (12): FOR x%=1 TO 12Z:R 


EAD ganme (x4) :NEXT 


130 qganme$=" a-b b c+c d-e e f+f gt ; 


q":DEF FNn$(s$,5)=MID$(s$,s, 1) 


14 DATA &777,470c,kba7,%647,k5ed, k 


578 


150 DATA 4547. k4fc,b4b4,2470,8431.8 ? 


3f4 

16 ENV 1,15,1,1 

170 ENT -i.6,-1,1,12,1,1,6.-1.1 

189 ENV 3,2,5,2,15,-1,9 

190 ENV 4.2,6,2,12,-1,18.10,0,15 
200 “HAE GRAPHISME : 
LOCO % HAGONS 2H 
HE 

219 CALL &BB4E 

220 SYMBOL AFTER 226 

230 SYMBOL 221,192,128,128,192,224, 
224,48,240 


249 SYMBOL 222.3,49,49,295,295,255, : 


0,255 


256 SYMBOL 223.248,248,292, 61.255, 1 ? 


89, 152,24 


260 SYMBOL 224,255, 295, 295, 0,295, 11 


5,115,33 


270 SYMBOL 225,127,127, 127,64, 255, 1 


4,14,4 
286 SYMBOL 226,255,4,4,7,7,71,70,71 


290 SYMBOL 231,3,1,1,3,7,7,12,15 


300 SYMBOL 232,192, 149, 149, 255,255, : 


299,0, 235 


319 SYMBOL 233.31,31,63,188,295, 189 >6M 


,25,24 

320 SYMBOL 244,255, 255, 255, 0, 255, 20 
6,206, 132 

330 SYMBOL 245, 254, 254, 254, 2,255, 11 
2,112,32 


>KD 


>JD 


340 SYMBOL 246,255, 32,32, 224, 224,22 ) 


6,98, 226 


350 w$(1)=CHR$ (233) +CHR$ (244) +CHR$ ( 2 


245) +CHR$ (11) +CHR$ (8) +CHR$ (8) +CHR$ ( 
8)+CHR$ (231) +CHR$ (232) +CHR$ (246) +CH 
R$ (16) 


360 wi$(1)=CHR$ (233) +CHR$ (244) +CHR$ 


(245) 


370 u2$(1)=CHR$ (231) +CHR$ (232) +CHR$ : 


(246) 
380 1(1)=3 


390 w$(0)=CHR$ (225) +CHR$ (224) +CHR$( 2 


223) +CHR$ (11) +CHR$ (8) +CHR$ (8) +CHRS ( 
8)+CHR$ (226) +CHR$ (222) +CHR$ (221) +CH 
R$ (19) 


408 w1$(9)=CHR$ (225) +CHR$ (224) +CHR$ : 


(223) 


410 w2$(9)=CHR$ (226) +CHR$ (222) +CHR$ 


(221) 
429 1()=3 
436 SYMBOL 247,0,0,0,0, 0,0, 64,94 


449 SYMBOL 248,0,6,0,0, 0,0, 2, 122 
45 SYMBOL 249,94,94,127,255, 127, 56 
56,18 


460 SYMBOL 250,123, 122,254,255,254, : 


28,28,8 


470 u$(2)= CHR$(249)+CHR$ (250) +CHR$ 


(LL)4CHRS (8) +CHRS (BI +CHRS (247) +CHRS 
(248) +CHRS (10) 

480 w1$(21= CHRS (249) +CHR$ (250) 

490 w25 (2)=CHR$ (247) +CHR$ (248) 

5ù 1(2)=2 

510 SYMEOL 252,0,0, 127, 127. 68. 68. 68 
68 


920 SYMBOL 253,0,0,254,254,34,34,34 > 


,34 


530 SYMBOL 254,127,127,127,255,127, > 


56,56, 16 
540 SYMBOL 255,254, 254, 254, 255, 254, 
28, 28,8 


990 w$(3)=CHR$ (254) +CHRS$ (255) +CHRS$ 


11)+CHR$ (8) +CHR$ (8) +CHR$ (252) +CHR$ ( 
253) +CHR$ (10) 

960 w1$(3)=CHR$ (254) +CHR$ (255) 

9370 w2$(3)=CHR$ (252) +CHR$ (253) 

580 1(3)=2 

SOÙ HHHHHHEHHEHHEHEE AFFICHAGE PE 
RMANENT HE 
HER 


690 KEY DEF 8,0:KEY DEF 1,0:KEY DEF 


47,0 

619 SPEED INK 25,25 

420 INK 0,1:INK 1,1: INK 2,1: INK 3,1 
LINK 4,12 INK 5,12INK 6,12 INK 7,15IN 
K 8,1: INK 9,1: INK 19,12 INK 11,4,1:1 
NE 12,1:PAPER 0: BORDER 1:MODE 0 


630 LOCATE 3,1:PEN 4:PRINT STRING$( } 





m 
>< 


16,149):LOCATE 3,2:FRINT STRING$ (16 
1143) :LOCATE 3,3:PRINT STRING$ (16,1 
31) 

64ÿ LOCATE 4,2:PEN 6: PAPER 4: PRINT" 
LE PETIT TRAIN" 

656 PAPER 10:FOR i=ib TO 19:LOCATE 
3,1:PRINT STRING$ (6,32) :LOCATE 19, i 
PRINT STRING$ (4,32) :LOCATE 15,1:FR 
INT STRINGS$ (4,32) :NEXT 


bbÿ PEN B:LOCATE 5,18: PRINT w$(i):L ? 


OCATE 11,18:PRINT W$ (2) :LOCATE 16,1 
B: PRINT w$ (3) 


670 PAPER 6:FOR i=21 TO 24:L0CATE 1 ; 


1tFÜR j=1 TO 7:PEN j:PRINT CHR$(I4 
3)+CHR$(143)3;:IF j<7 THEN PRINT" "; 


689 NEXT j,i 
694 LOCATE 1,7:PEN B:PRINT STRING ( 
26,208) :PEN INT (RND#7)+1:LOCATE 3,6 
PRINT w$(i}s 


760 FOR 1=5 TO 19 STEP 2:PEN INT(RN 


D#7)+1:LOCATE 1,6:PRINT w$ (INT (RND# 
2)+2):NEXT 


719 LOCATE 1,12:PEN G:PRINT STRINGS : 


(20,208) :PEN 6:LOCATE 4,11:PRINT w$ 
(1) :LOCATE 15,11: PRINT w$ (0) 


720 PEN 11:LOCATE 8, 11:FPRINT CHR$(2 à 


42):PEN 12:LOCATE 13,11:PRINT CHRS( 
243) 

730 INK 0,1:INK 1,8:INK 2,11: INK 3, 
92 INK 4,24: IN 5,15: INK 6,6: INK 7,2 
B:INK 8,0: INK 9,13: INK 10,14: INK 11 
,24,1:INK 12,1,24 


740 ré=INKEVS: IF r$="" THEN RANDOM : 


2E TIME:6070 740 ELSE r=ASC(r$) 
750 IF r=242 THEN force=1:6070 790 
760 IF r=243 THEN force=2:60T0 790 
770 GOTO 749 

780 +=: 1=0: nu=9 

790 MINDON #1,1,29,5,12:PAPER #1, 0: 
CLS #1 


800 HHEHEHREERE TIRAGE AU SORT D : 


ES FORMES & COULEURS #4 
#4 

810 RANDOMIZE TIME 

826 FOR i=2 TO 9:+#(i)=INT (RND#2)+2: 
NEXT:#(1)=1 

836 RANDOMIZE TIME 


840 FOR .i=1 TO 9:c(i}=INT (RND#7)+1: 2 


NEXT 


850 ‘AH ARRI | 


VEE DU TRAIN HE 
ÉTÉSISSEES 

864 LOCATE 1,7:FEN B:PRINT STRINGS( 
26,208) 

876 j=0:TAG 

880 cai4=i:ca2%=1:vit{=16:hh=8:hb=2 
890 cai$="r464E4D4C5B368F 464F 4E4D5C 





WO 


ns 


0 


De 


>K1 


?1C 
06 
>6N 


3G8ESE 2F4E4D4CADACADAE AC 1AZEZF 1E 205 
C3A4C." 

906 ca2$="r202E292E 202 292€ 29262976 
292629262e2E 2e 2€ 2926292620 2E 292€ 207 
C2D2402e2E 282€ 2e2D2e2D24 2F 24272272 
12F202E 292€ 29202a2D202E 202740. " 

916 GOSUE 1630 


926 FOR i=19 T0 i STEP -6.4:j=1+0,3 ;X 


45:GRAPHICS PEN c(1) 


Le MOVE 1#32,319:PRINT wi$(1):;: MOV : 


E 1#32,335:FRINT w2$(i}: 
946 FOR x=3 TO.j STEP 
N citx+i)/2) 


950 MOVE 1#32+4#32,319:PRINT wi$tf{ : 


(x+1)/2)}5: MOVE 1#32+x432,335: PRINT 
W2$(F((xt1}/2)); 

Séù NEXT x,1: TAGOFF 
970 LOCATE 1,12:FEN B:PRINT STRING 
(2,268) 


BONNE CLAV 


TR TT ESS LL LCI ECS ESS E ESS ESS EEE ES 
HR 

99ÿ FEN 19 

1066 FOR 1=i TO 9 


1919 x=6:LOCATE 6,15:PRINT CHR$ (241 : 


} 
1926 IF INKEY$::"" THEN 1928 


1819 ré=INÉEYS: IF r$="" THEN 1034 E 


LSE r=ASC(r$) 


1646 IF r=241 OR r=246 OR r=11 DR r : 


=10 THEN 1626 


1956 IF r=242 OR r=8 THEN dx=5#(x6 > 


} 


1960 IF r=243 OR r=9 THEN dx=-5#(x< 


lé) 
1079 IF r= 
tLOCATE x,15:PRINT" ":60T0 1110 


1084 IF r=224 AND i>1 THEN LOCATE x : 


,19:PRINT" ":G0TO 2249 


1999 LOCATE x,15:PRINT" “:x=xtdxiLO : 


CATE x,19:PRINT CHR$ (241): dx=0 

1198 GOTO 1630 

1119 FOR k=1 TO SO6:NEXT 

1120 x=1:LOCATE x,25:PRINT CHR$ (249 
} 

1136 IF INKEYS$E"" THEN 1130 


1149 ré=INKEYS: IF r$="" THEN 1149 E :F 


LSE r=A5C(r$) 
1156 IF r= 
=19 THEN 1149 


1169 IF r=242 OR r=8 THEN dx=3#(x1 : 


} 


1179 IF r=243 OR r=9 THEN dx=-3#(x< 


19) 


1186 IF r=32 OR r=88 THEN rc(i}i=x\s 


+1: LOCATE x,25:PRINT" “:GOTO 1220 


1199 IF r=224 AND i>1 THEN LOCATE x : 


,29:PRINT" “:G0TO 2249 


32 OR r=88 THEN rf(i)=x\5 : 


249 Oh r=24i OR r=ii OR r > 


WE 


Le] 
rs 


2:GRAPHICS PE NE 


En 
= 


LE 


1209 LOCATE x,25:PRINT" “ixzx+dx:LO 

CATE x,25:PRINT CHR$ (246) : dx=û 

1219 GOTO 1149 

1220‘ HIHHHHEPNPENNE ARRIVE 

E DES HAGONS #66 HER 

EFFETS SSES 

1239 GRAPHICS FEN rc (1): TAG 

1246 IF force=2 THEN 7436 

1256 FOR j=26 TO +1 STEP -4.4 

1366 IF rflii=i THEN SOUND 1,6,13,0 
.1,9,1 ELSE SOUND 5.1978,4,9,8,1,0 
1276 MOVE 324j,230:PRINT wi$irft1)} 
+" Ms MOVE 324,295: PRINT wi$irfii) 
+ fs 

1286 IF rfiii=i THEN FÜR kzi TO 54: 

NEXT ELSE FOR k=i TO 16:NEXT 

1299 NEXT ] 

1369 TAGOFF:1=i+1{rf{iiislr(i)=islF 
1:17 THEN nw=1:1=9 

1316 NEXT 1 

1320 HREEHHNHPHE ANALYSE 
DES REPONSES 24H 
HE 

1336 IF force=2 THEN 2194 

1346 FOR 1=i TO nn 

1356 IF rfliisf(i) OR rc(i)ésc(i 
THEN MOVE (i+ir(i))#33,223: DRANR -1 
(rf(i))#33,33,6: MOVER 6.-32:DRAUR 1 
(rfii)1#32,32,6: MOVE (irir(17)#32-4 
223: DRAMR -L(rf(i})#32,32, 6: MOVER 
0,-22:DRAWR Lirfii))#32,32,6:f=f+i 
1368 NEXT 

1376 IF f:9 THEN 1510 

1280 ANR 
# GAGNE AFFINER 
APE 

1596 cai$="r9C6E9DéA6C ar ?C6D9E9B96 
r9C8EFD6A6C Par SAGC SAGE AGO ICT ECC 
2b2+q2BbebârbA9qrbCéCéDéE7B96r6CEC 2 
b2+92BbebArbA9gr 3A6C 3AbB4AbGOBICr9C 
BESD6A6CIgr9C6D9E9E96r CE DAC 7 gr 
3A6C3AGBÉAGGEENC. " 

1406 ca2$="rbChE8CéEË FF CEE" CEE 
6EbgéDégéDr CE CEE bé ÉCéEr FF 6 
FbgéDéCéEréCéEbB6E Ar bF éCégr E6CEB6 
DégéDégéDréCéE6B6EbAr EF bCégréf6Fbté 
FégbDéCéEr CHE BCE 6 FéF bCÉEr ÉCÉEGCÉE 
bgbDégéDr CE BCE 6 EF CEE r 6 FÈF 6 FETE 
géDéc." 

1419 cal4=i:ca24=2:vit{=4:60SUB 165 
ô 

1428 TAG:IF force=2 THEN 2104 

1430 FOR i=i TO -19 STEP -6.4:GRAFH 
ICS PEN ci) 

1449 MOVE i#32,399-16#160:PRINT wi$i 
1)3:MOVE 1#32,399-1649:PRINT w2$(1) 


1456 FOR x=3 TO 17 STEP 2:GRAPHICS 


w25 


PK 


?LH 
3XH 


“AU 
>RD 
V6 
MT 


>AH 


FE 


3VJ 
?1B 


VA 
2XJ 


?TC 
?LB 
BK 


?LE 
NU 
VE 


:RB 


>PQ 


DR 


MA 
MZ 


UÀ 


Se 


NP 


PEN c(x\2#i) 

1469 MOVE 1#32+k432,239:FRINT wi$(f 
GA2+1) 2e MOVE 1432444372, 255: PRINT 
WE$ CFCX\2+1)à 3 

1476 NEXT x: MOVE 1+32+608, 239: PRINT 
MM: MOVE 1#32+608,293: PRINT" *; 
1480 IF cal%=0 AND ca2#=0 THEN GOSU 
B 1636 

1498 NEXT 1: TAGOFF 

1548 GOTO 1580 

LSLO AMENER FER 
DIRES EC ESECECLCECEELELELELELEEELE 
HE 


1526 cai$="rleigiel-ei-qi-eidifidée : 


1536 ca2$="r3q343Béc. " 
1549 vit#=20:hh=2:hb=i 
1550 cal=iicaz4=i 
1566 GOSUB 1636 


1570 HAINE FT 


DRESSÉ SSL CS CESSE LLC 
HER 

1584 PEN 11:LOCATE 9,8: PRINT"O": 
N 4: PRINT" /%3:PEN 12: FRINT'N" 


1599 1$=UPPERS(INKEYS) : IF 1$="0" TH 2 


EN 780 

1609 IF i$="N" THEN INE 4,135: INE 1, 
6:PAPER 9:PEN 1:BORDER 13: MODE 2:EN 
D 

1619 GOTD 159 


1620 HN M 


USIQUE. 2H 
BH 

1630 cal4=1:G0SUB 1666 

1649 ca2%=1:G0SUB 1849 

1650 RETURN 

1obt 

1670 pi$=FNn$(cai$,caik) 


1680 IF pi$<>"r" THEN r1%=6:G0T0 17 : 


90 


1690 rllsibscalézcait+i:pi$=FNm$ (ca : 


1$,cai4) 

1706 IF pi$="," THEN cai%=0:RETURN 
ELSE 114=VAL (p1$) 

1719 cal#=cal4+l 

1720 ni$=FNm$(cai$.cai#) 

1730 cal=caliti 


1749 IF n1$="+" OR n1$="-" THEN 181 ? 


(] 
1756 ni$=" “nié 


1764 ndi%=(i+INSTR (gamme, LOWERS$ (ni ; 


$)})}/2 

1776 IF ASC(RIGHT$(n1$,1)):96 THEN 
oi#=hh ELSE oi4=hh#2 

1786 SOUND 1+r1%, gamme (nd14) /oi%,v 
ité#114,6,3 

1796 ON SQ(i) GOSUB 1660 

1864 RETURN 


PE 





NF 


+08 


La 


>FA 


2NF 
2MH 
?XE 


et 
= 
ct 


> 


LR 


RC 
?FC 





1814 ni$=ni$+FNn$icai$,cal4) 
1820 calä=caii+ti 

183% GOTQ 1760 

1846 ‘ 

1859 p2$=FNm$ (cai$.ca2#} 


1864 IF p2$<i"r" THEN r2%=6:50T0 16 : 


86 


1876 r2=Bica2=ca24ti:p24$-FNm#icaz à 


$.ca24} 

1886 IF p2$="," THEN ca%=b: RETURN 
ELSE 12%=VAL (pa$i 

1896 ca24=cadiri 

1906 ni=FNn$ (cai$.caz# 

1919 cadi=ca2ati 

1929 IF n2$="+" OR n2$="-" THEN 199 
() 

1936 n2$=" "+n2$ 


1949 nd24=(1+INSTR (gamme. LOWERS (n2 


$)})/2 
1956 IF ASC(RIGHT(n2$, 1) 1296 THEN 
24=hb ELSE. o2%=hb#2 


1964 SOUND 2+r2%, gammeñ (nd2%4i /02%, v 2 


it4+12%,0,4 

1976 ON Sü(2} GOSUE 1644 
1984 RETURN 

1996 n2g=n2$+FNn$ lcaié, caï4) 
io ca2i=cazitl 

GOTO 1944 


2614 








. @ Pierre SCHAAF 





ND 


VE 


31K 


MAGNETIC 


De evolutionus sphérum ou les 
aventures d’une bille aimantée se 
promenant sur un tableau quadril 
Or, çà et là ont été disposés, par un 
ordinateur malicieux des aimants de 
même signe que ladite sphère. Les lois: 
de la physique étant ce quelles sont, la 
trajectoire de la boule métallique est 
déviée. A vous d’en déduire la position 
des aimants. Simple, non ? Le mode 
d’emploi est inclus dans le listing. 





2OED RH HEENNE ARRIVE à 


E DES WAGONS force 2 #3 
DÉS SS ESS) 


2634 IF rt(i)=i THEN rflii=éif(lisà à 
2646 FOR 3=-1-lirfii)t TO iB-lirtii :NJ 


ji-1 STEP 6,5 


2456 IF rfiii=é THEN SOUND 1.4,13,8 :MP 


19,1 ELSE SOUND 3,1978,4,9.6,1,6 


2664 MOVE 32#1,230: PRINT © “+yi$iré à 


(i)}s MOVE 3547, 255: PRINT © aua$ir 
fai}: 


2676 IF rfii=é THEN FÜR k=1 TO Sé: à 


NEXT ELSE FOR k=1 TO 16:NEXT 
2684 NEXT j:6010 1360 


2090 © HORS D 


EPART FORCE 2 #4 
IEEE 


2164 FOR i=i7 TO 37 STEF 6.4: G6RAPHI :LN 


CS PEN ci) 


2114 MOVE 1433,530:PRINT wi$(Wis:MO > 


VE 432,259: PRINT w2$ (di: 

2129 FOR x=2 TO i6 STEF 2:GRAFHICS 
PEN cixii+ii 

2138 MOVE 1#35-x% 
(x\Z+{ rss MOVE 1# 
wzpifixiitills 
2146 NEXT x:MOVE 1#32-544, 239: FRINT 
Moses MOVE 132-544, 255: PRINT" : 






es 


432,259: FRINT 


er 26 = 


32,239PRINT wi$if > 


2NG 


M 









2156 IF cai%=4 AND caz%=4 THEN GOSU :F4 


B 1610 
216 NEXT i:TAGOFF 
2176 GOTO 1584 


LABO HER ONE ANALYS 


E REFONSE FORCE 2 #44 
HAE 

2196 FOR ii TO nu 

2240 IF rf(i)éf(ii OR roliiésct) 
THEN MOVE (19-1r(1i)#32,223:DRAUR 1 
irf(1))#32,32,6:MOVER 6,-32:DRAUR - 
l(rf(i))#32,32,6:MOVE (19-Ir(i1)i#32 
4,223: DRAMR 1(rf(i1))#32,3, 8: MOVER 
8,-32:DRAMR -L(rf(i))#32,33,6:#=t+ 






ä NEXT 

6 GOTO 1370 

LATE HR ENNNNE CÜRR 
ECTION #46 
ÉES ESS SI 


2244 IF force=i THEN LOCATE £+1-lir : 


füi-1)),11 ELSE LOCATE 26-1,i1 
225% PRINT STRINGS(l(rf(1-1) 1,33) 


2264 IF force=i THEN LOCATE ä+i-l{r 


f(i-1)),16 ELSE LOCATE 26-1,16 
2276 PRINT STRING#(l(rfii-i)},32) 
2286 1=l-lirfii-iiisi=i-i 

2299 GOTO 1616 


EG 


EL 


Me 





19 REM ### MAGNETIC ##4# >PE 
15 REM #44 SCHAAFF PIERRE ### >VG 
26 REM ### presentation ### >VWN 


30 MODE 0:BORDER 0: INK 0,0: INK 1,16 >20 
LINK 2,14:INK 3,17: INK 4,9: INK 5,24 

2 INK 6,22 INK 7,21: INK 8,15: INK 9,11 
:INK 10,22: INK 11,25 


40 DATA M,AG,NSET, LC SRT 
5é FOR i=1 T0 8 > 
4 READ a$li) >DB 
76 NEXT >vH 
80 LOCATE 4,3 >Hk 
96 FOR i=i TO 8 >PD 
190 PEN i:PRINT a$li);" >TE 
110 NEXT >DH 
120 PEN 9:LOCATE 5,4:PRINT" >P2 
13 PEN 19:LOCATE 8,5: PRINT" >GE 


146 PEN 11:LOCATE 11,6: PRINT" _" 16 
150 INK 12,0:INK 13.0:INK 14,0:PRIN >VP 
T CHR$(22)+CHR$ (1) 


166 FOR i=3 TO 12 CD 
170 a=INT(1.6*i) LH 
180 PLOT 1,200-a:DRAW 638.200-a,12 AZ 
190 NEXT ?EF 
260 FOR i=36 TO 270 STEP 60 ?TP 


219 PLOT 319+i,195:DRAW 319+2#1,1  ?ZR 
220 PLOT 319-1,195:DRAW 319-2#1,1  22X 


230 NEXT ?EA 
240 ORIGIN 290,135 >MQ 
250 FOR i=P1/2 TO à STEP -6.03 WG 
260 a=70#C05(1):b=284SIN (1) VB 


279 PLOT a,b,13:DRAW -a,b:PLOT -a,- >NY 
b:DRAH a,-b 


280 NEXT ?EF 
276 ORIGIN 356, 180 MT 
300 GOSUB 600 >6J 
319 FOR i=P1/2 TO © STEP -0.95 >WD 
320 a=70#C05(1):b=70#SIN (1) >VD 


336 PLOT a,b,14:DRAW -a,b:PLOT -a,- >NH 
b:DRAW a,-b 


340 NEXT ?EC 
350 FOR k=1 TO 7 >WD 
360 SOUND 1,430,10,15,,,1 RÀ 


370 INK 12,26: INK 13,13: INK 14,6:PR >YD 
INT CHR$ (22) +CHR$ (0) 

380 FOR j=0 TO SO:NEXT ?QB 
370 INK 12,0: INK 13,0: INK 14,0:PRIN >UW 
T CHR$(22)+CHR$ (1) 

400 NEXT >DK 
416 r=60:G0SUB 570:60SUB 600: r=50:6 >LA 
OSUB 570 


428 ORIGIN 0,9 >Q6 
430 PLOT 250,226,14:DRAW 270,220  >YH 
440 PLOT 235,229:PLOT 220,220 >WM 
450 PLOT 230,180: DRAW 259, 180 >WD 
460 PLOT 214,180:DRAW 229, 1B0 W1 


470 PLOT 200,180 ?CA 


480 PLOT 280,150:DRAW 295,150 >WQ 
490 PLOT 259,150:DRAW 265, 156 ?WK 
506 PLOT 235,150 >BK 
510 PLOT 259,130: DRAW 255,130 >WX 
520 PLOT 265,136:DRAW 270, 130 NB 
330 PLOT 289,130: DRAW 299,130 >WB 
540 PLOT 189,170:DRAW 290,170 WA 


390 INK 12,26: INK 13,13: INK 14,6:PR }YD 
INT CHR$ (22) +CHR$ (0) 


960 CALL &BB06:G0TO 764 >0H 
970 FOR i=P1/4 TO à STEP -4.63 >WP 
980 PLOT r#C05(i},r#SIN(i),12 )YE 
990 NEXT:RETURN >MJ 
660 FOR i=1 TO 15 >CD 
610 SOUND 2,449,25,i,,1 >0H 
620 SOUND 2,415,20, i ?NC 
636 NEXT:RETURN >MD 
769 REM ### initialisations ##+# >IR 


710 MODE 1:BORDER 9:INK 9,9:INK 1,0 >UH 
INK 2,26: INK 3,6 

720 SYMBOL AFTER 232 PT 
730 SYMBOL 232,102,102,195,195,195, 3LZ 
231,126,32 

800 REM ### regles ### >NA 
819 PEN 1:LOCATE 4,12:PRINT"Voulez- >NW 
vous les regles (D/N)?" 

826 a$=UPPERS(INKEYS): IF a$="" THEN >FY 
826 

850 IF a$="0" THEN GOSUB 3540:60T0 >DF 
850 


840 IF a$<?"N" THEN 820 PK 
856 CLEAR: x=5: y=10: xa=x: va=y )1F 
B6û DIM aimant (33,22) ,essai(33,22) BD 
870 ORIGIN 1,1:GRAPHICS PEN 1 »X6 
880 RESTORE 1619 ?LF 


960 REM ### jeu avec ou sans trace >CM 
#4 


910 SYMBOL AFTER 147 ?FF 
920 FOR i=147 TO 156 MT 
920 SYMBOL i.0 ME 
940 NEXT i PB 


950 CLS:PEN 1:LOCATE 4,19:PRINT"Vou >YU 
lez-vous le trace du deplacement":L 
OCATE 11,14:PRINT'"de la bille (O/N) 

dal 

960 a$=UPPERS(INKEYS):IF a$="" THEN DFJ 
960 


970 IF a$="O" THEN 990 NU 
980 IF a$<>"N" THEN 960 ELSE 1950 KA 
990 SYMBOL 147,24,24,24,31,15 WP 


1900 SYMBOL 149,24, 24,24, 24,24, 24,2 )EG 
4,24 

1919 SYMBOL. 190,0,0,0,15,31,24,24,2 )BY 
4 

1920 SYMBOL 153,24,24,24,248,240  DYU 
1930 SYMBOL 154,0,9,0, 255, 255 »WQ 
1949 SYMBOL 156,0,0,0,249, 248, 24,24 >DM 


27 w 


,284 

1959 SYMBOL 232, 192,102,195,195,195 >ML 
.231,126,32 

1669 CLS:LOCATE 12,12:PEN 2:PRINT'V >BA 
EUILLEZ PATIENTEZ":FOR i=0 TO 500:N 
EXT 

1106 REM ### calcul position des ai >LE 
mants ### 

1119 RANDOMIZE TIME >PD 
1120 nbraimant=INT(RND(1)#19+1):1F  >B7 
nbraimant<S5 THEN 1124 

1136 FOR i=1 TO nbraimant >UB 
1149 posx=INT (RND(1)#29+1):1F posx< >RH 
6 OR posx/2=INT(posx/2) THEN 1146 

1156 posy=INT(RND(1)#18+1):IF posy< >TP 
3 OR posy/2€C}INT(posy/2) THEN 1158 

1168 IF aimant(posx,posy)=1 THEN 11 LR 
49 ELSE aimant (posx,posy)=1 

1179 NEXT i ?VE 
1200 REM ### dessin ecran ### V6 
1219 CLS: INK 1,9:INE 2,9:INK 3,9:PR V0 
INT CHR$(22)+CHR$ (1) 


1229 FOR 1=390 TO 70 STEP -32 UV 
1236 PLOT 54,i:DRAH 500, i TK 
1249 NEXT i VC 
1250 FOR i=54 TO 528 STEP 32 >UA 
1260 PLOT i,76:DRAW i,390 TU 
1270 NEXT i VF 
1289 FOR 1=94 TO 446 STEP 22 UG 
1298 PLOT i,358,6:DRAW i+16,358 aYL 
1309 PLOT i,192:DRAW i+16, 182 WC 
1319 NEXT i VA 
1329 FOR i=334 TO 119 STEP -32 ?VM 
1330 PLOT 86,i:DRAW 86, i+ié NY 
1340 PLOT 470,1:DRAW 470, it WI 
1350 NEXT i VE 
1369 FOR 1=2 TO 16 STEP 2 0H 
1379 LOCATE 2,i+2:PRINT i/2 V4 
1389 NEXT i ?VH 
1390 FOR i=7 T0 29 STEP 2 ?RA 


1499 LOCATE i,22:PRINT CHR$(bi+1/2) >CH 


1416 NEXT i VB 
1420 PLOT 22,38,1:DRAW 624,38: DRAW EF 
624,6: DRAW 22,6:DRAW 22,38 

1430 PLOT 21,40: DRAW 626,40: DRAW 62 CB 
6,5:DRAW 21,5:DRAW 21,40 

1440 PEN 2:LOCATE 34,16:PRINT"aiman ?EL 
t":LOCATE 35,17:PRINT"mal":LOCATE 3 
4,18:PRINT"plac{:" 

1450 PLOT 518,166, 1:DRAM 630, 166:DR PL 
AW 636,70: DRAW 518,76: DRAW 518, 166 

1469 PLOT 516,169:DRAW 632, 169:DRAW >MN 
632,69: DRAW 516,69: DRAN 516,169 

1470 ORIGIN 560,226 >MM 
1480 r=33:G0SUB 1520:r=27:G60SUB 157 >WC 

Q:r=23:G0SUB 1570 

1490 ORIGIN 609,359 >MN 


1509 r=33:G0SUB 1520:r=27:G0SUB 157 >WV 
@:r=23:G0SUB 1570 

1516 INK i,0: INK 2,262 INK 3,6:PRINT FH 
CHR$ (22) +CHR$ (0) :GOTD 1610 


1526 FOR i=6 TO FI/2 STEP 6.45 >WN 
1530 a=r#C0S(i):b=r#SIN(i) >] 
1540 PLOT a,b,3:PLOT -a,-b:PLOT -a, >NG 
b:PLOT a,-b 

1590 NEXT i ?VG 
1569 RETURN FF 
1579 FOR i=4 TO PI/4 STEP 6,05 >W4 
1589 FLOT r#C0S(i),r#SIN(1),2 3YC 
1599 NEXT i >WA 
1606 RETURN >FA 
1619 DATA G,N,E,T LU] 
1629 LOCATE 34,4:PRINT"M":G60SUB 406 >RA 
O:LOCATE 34,6:PRINT"A":GO0SUB 4040 

1630 FOR j=34 TD 46 STEP 2 ?RR 
1646 READ a$:LOCATE j,8:PRINT a$:60 ?KE 
SUB 4699 

1859 NEÏT j 3] 


16bà LOCATE 49,10:PRINT"I":G0GUB 40 >VF 
GG: LOCATE 49,12: PRINT"C":G0SUB 4400 


1676 PEN 2:LOCATE x, y:PRINT CHR$(23 EM 
1) 


1689 REM *### entree clavier ### 2 
1699 a$=UPPERS$(INKEYS$): IF a$="" THE >HG 
N 1699 

1706 IF a$=CHR$ (242) OR a$=CHR$ (243 >KM 
} THEN 1840 | 

1710 IF a$=CHR$(249) OR a$=CHR$(241 >KK 
} THEN 1990 

1720 IF a$=CHR$(224) THEN 2800 ?VH 
1730 IF a$="P" THEN 2800 >0P 
1740 IF a$="S" THEN 3600 QL 
1794 IF a$="A" THEN 3190 PC 
1760 GOTO 1690 ?NH 
1890 REM ##+ deplacement droite-qau ?KB 
che ##+ 

1819 IF y=2 OR y=20 THEN 1829 ELSE ?CD 
1690 

1826 IF a$=CHR$(243) THEN 1850 WF 
1830 IF x=5 THEN 1690 >ND 
1849 xa=x-2:G60T0 1870 3PY 
1850 IF x=31 THEN 1696 PV 
186 xa=x+2 ?XD 
1870 LOCATE x,y:PRINT" “:LOCATE xa, ?FM 
ya: PEN Z:PRINT CHR$ (231) 

1880 x=xa:y=ya:G0TO 1690 JUE 
1909 REM ##+ deplacement haut-bas * >DX 
#+ 

1918 IF x=5 OR x=31 THEN 1920 ELSE >DA 
1690 

1920 IF a$=CHR$(241) THEN 1950 WP 
1930 IF y=2 THEN 1699 >NC 
1949 ya=y-2:60T0 1879 >PB 
1950 IF y=28 THEN 1690 ?PV 


1960 va=y+2:60T0 1874 >PB 
2009 REM ### deplacement de la boul >FB 
e ### 

2019 IF (x=5 AND y=2) OR (x=31 AND >DR 
y=2) OR (x=5 AND v=20}) OR (x=31 AND 
y=29) THEN 1696 


2029 IF x=5 THEN sens=i ?RB 
2630 IF x=31 THEN sens=2 RD 
2649 IF y=2 THEN sens=3 ?RD 
2050 IF v=29 THEN sens=4 ?RG 
266% LOCATE x,y: PRINT" " ?TH 
2076 ON sens GOTO 2116,2146,2174,22 >C1 
06 

2080 IF essai(x,y)=1 THEN essai (x,y >WY 
)=ÿ: coup=coup-{ 

2090 LOCATE x,y:PEN 2:PRINT CHR$(23 EM 
1) 

21906 xa=x:ya=v:60TO 1690 UP 
2119 GOSUB 2300: x=x+2 ?PM 
2120 IF INKEY(69)=6 THEN x=5:y=2  >2N 
2130 IF x=31 OR x=9 OR y=2 OR y=28 RH 
THEN 2086 ELSE 2070 

2146 GOSUB 2300: x=x-2 PT 
2156 IF INKEY(69)=4 THEN x=5:y=2  ?2R 
2169 IF x=5 OR x=31 OR y=2 OR y=24 TE 
THEN 2080 ELSE 2074 

2176 GOSUB 2306: v=y+2 >PN 
2180 IF INKEY(69)=0 THEN x=9:v=2  }2V 
2190 IF x=5 OR x=31 OR v=26 OR v=2 >TF 
THEN 2086 ELSE 2976 

2206 GOSUB 2306: v=v-2 FR 
2216 IF INKEY(69)=0 THEN x=5:y=2  >?2N 
2220 IF «=9 OR x=31 OR v=2 OR v=20 TE 
THEN 2080 ELSE 2976 

2200 REM ### test de position des a ?LC 
imants ##4# 

2319 aimant=i 06 


2326 IF aimant(x+2,y}=1 THEN aimant ?NH 
saimant+i 

2330 IF aimant(x-2,v}=i THEN aimant >NM 
=aimant+2 

2349 IF aimant(x,y+2)=1 THEN aimant ?NN 
=aimant+4 

2350 IF aimant (x,v-2}=1 THEN aimant >M4 
=aimant+8 

2360 ON aimant GOSUB 2384,2416,2470 >BK 
,2380, 2530, 2590, 2600, 2530,2610, 2670 
2680, 2610, 2380, 2410, 2470 

2370 RETURN FF 
2386 IF sens=i OR sens=2 THEN trace >QV 
$=CHR$ (154) ELSE trace$=CHR$ (149) 

2390 IF x=5 OR x=31 OR v=2 OR y=26 DT 
THEN RETURN ELSE GOSUB 2696 

2499 RETURN ?EK 
2416 ON sens 60TD 2426, 1690,2459,24 CH 
1) 

2426 IF x=5 THEN x=3:y=2:RETURN 16 
2430 IF (aimant=14 AND sens=i) THEN >ER 


er 28 «= 


sens=2: x=x-4: RETURN 
2449 GOTO 2530 
2459 sens=2: trace$=CHR$ (153) : 60SUB 
2690: y=y-2: x=x-2: RETURN 
2469 sens=2: trace$=CHR$ (156) : G0SUB 
2690: y=y+2: x=x-2: RETURN 
2470 ON sens GOTO 1694,2480,2519,25 
29 
2480 IF x=31 THEN x=33:y=29: RETURN 
2499 IF (aimant=13 AND sens=2} THEN 
sens={:x=x+4: RETURN 
2509 GOTO 2610 
2519 sens=1:trace$=CHR$ (147) : GOSUB 
26090: y=y-2: x=x+2: RETURN 
2529 sens=1: trace$=CHR$ (156) : GOSUB 
2090: y=v+2: x=x+2: RETURN 
2536 ON sens G0TO 2546,2556, 2540 
2549 sens=é: trace$=CHR$ (153) : GOSUB 
2670: x=4x-21: y=y-21RETURN 
2556 sens=4: trace$=CHR$ (147) : GOSUB 
2699: x=x+2: y=y-21 RETURN 
2560 IF y=2 THEN x=31:y=0:RETURN 
2570 IF (aimant=B AND sens=3) THEN 
sens=4: y=y-4: RETURN 
2589 GOTO 2470 
2590 IF sens=i THEN 2536 ELSE 2410 
2606 IF sens=2 THEN 2530 ELSE 2479 
2619 ON sens GOTO 2626,2630, 1696, 26 
49 
2620 sens=3: trace$=CHR$ (156) : GOSUB 
2696: x=x-21: y=y+2: RETURN 
2630 sens=3: trace$=CHR$ (159) : GOSUB 
2690: «=x+2: V=y+2: RETURN 
2640 IF y=20 THEN x=5:y=22: RETURN 
2650 IF (aimant=12 AND sens=4) THEN 
sens=3: y=y+4: RETURN 
2666 GOTO 2410 
2670 IF sens=i THEN 2610 ELSE 2416 
268% IF sens=2 THEN 2619 ELSE 2470 
2090 IF essai(x,y)=1 THEN essai (x,y 
)=0: coup=coup-1 
2700 PEN S:LOCATE x,y:PRINT trace$ 
2719 RETURN 
2800 REM.*##* placer un aimant +## 
2816 IF coup{>nbraimant THEN 2846 
2820 PEN 2:LOCATE 5,24:PRINT"Suppri 
ser d'abord un aimant" 
2850 GOSUB 49460:FOR i=i TO 2699:NEX 
T i:60SUB 3356:G60T0 1690 
2640 GOSUB 2890 
2859 LOCATE joux, jouy:PEN 2:PRINT C 
HR$ (232) 
2860 IF aimant (joux, jouy)=i THEN sc 
ore=scoret+i 
2874 essai (joux, jouy)=1:coup=coup+i 


2886 IF coup=nbraimant THEN 3200 EL 
SE 1690 





>MH 
>6P 


GR 


?CC 


CB 
?BX 


MD 
?6L 


NF 
>1Y 
>1X 
CA 


60 


>6H 


>BU 
BY 


>MJ 
? LM 
}1E 
WF 


?CZ 
?FD 
>YV 
>BF 
PF 
?CU 


YF 
>MA 


?TE 


>6F 


>JX 





2890 PEN 2:LOCATE 5,24:PRINT"Coordo FX 
nnees (lettre,chiffre)"::G0SUB 4064 


2906 INPUT joux$, jouy >RF 
2919 joux=ASC(joux$):1F joux>98 THE >KK 
N joux=joux-32 

2920 IF (jouy<i OR jouy>8 OR jouxté >XU 
5 OR joux>76) THEN GOSUB 3356:G0T0 

2890 

2936 joux=(joux-59}+(joux-64}: jouy= >RB 


(jouy+1)#2 
2940 GOSUB 3350 >XJ 
2950 RETURN >FK 


3009 REM ### suppression d'un aiman >UZ 
t #44 

3010 GOSUB 289  . XF 
3920 IF essai (joux, jouy}{>1 THEN 30 )EY 
19 

3636 LOCATE joux, jouy:PRINT" " >AR 
3646 IF aimant (joux, jouy)=1 THEN sc >RF 
ore=score-] 

3956 essai (joux, jouy}=6:coup=coup-1 >BX 


3660 GOTO 1690 ?NC 
3100 REM ### abandon #+#4# QE 
3110 PEN 2:L0CATE 5,24:PRINT'Positi >V4 
on des":nbraimant: "aimants" 

3120 GOSUB 4060:FO0R i=1 TO 2466:NEX >DM 
Ti 

3130 FOR i=7 TO 29 STEP 2 
3140 FOR j=4 TO 18 STEP 2 07 
3150 IF aimant(i,j)=1 THEN LOCATE i DT 
.JtPEN 1:PRINT CHR$ (232) 

3160 NEXT j,i >KJ 
3170 LOCATE 5,24:PEN 2:PRINT score; >PA 
“aimant(s) bien place(s)" 

3180 GOSUB 4060:FOR i=1 TO 4600:NEX >DW 


Ti 

3196 G60TO 3300 >MG 
3200 REM ### tous les aimants sont ?LU 
places ### 


3210 PEN 2:LOCATE 5,24:PRINT nbraim ?AT 
ant; "aimants a placer au total" 

3220 LOCATE 35,20:PRINT" ‘ >VL 
3230 GOSUB 4060:FOR i=1 TO 2000:NEX >DP 
Ti 

3249 IF coup=score THEN 3280 WJ 
3250 PEN 3:LOCATE 35,20:PRINT coup- >JE 
score 

3260 GOSUB 4060:FOR i=1 TD 20640:NEX >DT 
Ti 

3270 GOSUB 3350:60T0 1690 >TN 
3286 GOSUB 3350:LOCATE 5,24: PRINT'T >FJ 
ous les aimants sont bien places" 

3290 G6OSUB 4060:FO0R i=1 TO 2000:NEX >DH 
Ti 

3300 GOSUB 3350:60SUB 4060:LOCATE 5 >G6F 
,24:PRINT"Voulez-vous rejouer (D/N) 


QC 


3 

33510 a$=UPPERS(INKEYS): IF a$="" THE >GH 
N 3310 

3320 IF a$="0" THEN 850 

3330 IF a$<>"N" THEN 3310 

3340 CLS:BORDER 1:INK 6,1: INK 1,24: 
PEN 1:END 

3356 LOCATE 5,24:PRINT SPACE$ (34) 
3366 RETURN 

3500 REM ### regles ##4# 

3519 CLS:LOCATE 14,2:PEN 2:PRINT'R 
EGLES" 

3520 LOCATE 13,3:PEN 3:PRINT" >RT 


>PU 
>0Y 
LB 


?BC 


3530 PEN 1:LOCATE 2,6:PRINT" Vous d : 
isposez d'une bille aimantee pourvo 
us deplacer sur une grille de jeu." 


3546 PRINT"Vous ne pouvez deplacer MF 
la bille que surle pourtour de cett 

e grille." 

3550 PRINT:PRINT" Par contre, la bi >CR 
lle peut etre lanceesur la grille 

, elle se deplace en lignedroite p 

our atteindre le cote oppose." 

3560 PRINT:PRINT" Bien entendu, l'or >QH 
dinateur a dispose, auhasard, des a 
imants de meme nature surla grill 

e." 

3576 PRINT:PRINT" Si un aimant se t ?EQ 
rouve sur le chemin devotre bille, 
celle-ci est repoussee etvoit sa 
direction modifiee." 

3580 GOSUB 3919 ?YB 
3570 PRINT:PRINT "Exemple :" 38N 
3606 LOCATE 23,2:PEN 3:PRINT CHR$(1 >W 
96)+" "+CHR$(149) 

3619 LOCATE 23,4:PRINT CHR$(149)+" HZ 
+CHR$(147)+" "4CHRS(154)+" "+CHRS( 
197) 

3620 LOCATE 21,6:PRINT CHR$(154)+"  >J6 
'ACHR$S(153)+" "5: PEN 2:PRINT CHRS (2 
32)3:2PEN SPRINT" "+CHR$(150)+" "+C 
HR$ (154) 

3630 LOCATE 21,8:PRINT CHR$(199)+" BA 
“+CHRS(154)+" "4+CHRS (156)+" “+CHRS( 
149)+" " 

3640 LOCATE 25,19:PRINT CHR$(149)+" >PP 
“+CHR$ (198) 

3650 FOR i=262 TO 358 STEP 32 WE 
3660 PLOT 343,1,1:DRAW 439, i >VD 

3670 NEXT i ; >WB 

3680 FOR i=343 TO 439 STEP 32 >VH 

3690 PLOT i,262:DRAN i,2358 >UG 

3709 NEXT.i ?VF 


3719 LOCATE 2,5:PEN 2:PRINT CHR$(23 DUE 
2)+" : aimant" 

3720 LOCATE 2,7:PEN 3:PRINT CHR$(15 >DU 
4)+" : trajet bille" 


= 


3730 LOCATE 1,13:PEN 1:PRINT'Les ai >VA 
amants ne sont pas visibles, a vousd 

e determiner leurs positions en dep 
lac-ant la bille sur toute la grill 

e."* 

3749 PRINT:PRINT'Le nombre d'aima : 
nts a trouver varieentre 5 et 10 
3750 PRINT"Lorsqu'ils sont tous pla : 
ces, l'ordinateuraffiche le nombre d 
‘aisants aals places." 

3768 PRINT"A vous de les replacer à : 
u bon endroit..." 

3770 GOSUB 3916 

3780 LOCATE 1,7:PRINT'Le jeu possed 
e un mode norsal(difficile)et un mo 
de trace(facile)." 

3790 PRINT:PRINT"En mode trace, un 
trait s'affiche sur lepassage de la 
bille, alors qu'en modenormal, 
il ne s'affiche rien." 

3806 PRINT:PRINT"Si la bille dispar 
ait apres un lancementet ne reapara 
it plus, elle est entreedans une 
boucle et ne peut plus 5'enech 
apper." 

3810 PRINT:PRINT"Pour la liberer ap ; 
puyez sur la touche Q." 

3826 GOSUB 3919 

3839 LOCATE 11,2:PEN 2:PRINT"ROLE D 

ES TOUCHES" 

3840 LOCATE 10,3:PEN 3:PRINT“ >1A 


GE 


se 


3850 LOCATE 10,6:PEN 1:PRINT" (P) lac ; 
er un aimant" 

3860 LOCATE 10,8:PRINT" (S)upprimer 
un aimant" 

3870 LOCATE 19,10:PRINT" (A)bandonne >UK 
r le jeu“ 

3886 LOCATE 10,12:PRINT CHR$ (246); C 
HR$ (241) ;CHR$ (242) : CHR$ (243) ;" Dep] 
acer la bille" 

3890 LOCATE 10,14:PRINT* (COPY) Lanc ; 
er la bille“ 

3900 LOCATE 19,16:PRINT" (Quitter u 
ne boucle“ 

3919 LOCATE 19,25:PEN 2:PRINT"Appuy >HH 
ez sur une touche" 


JWU 


3920 CALL &BB06 >UH 
3930 CLS:PEN 1:RETURN >RV 
4000 REM ### sonorites ### TV 
4916 FOR i=5 TO 15 »LJ 
4020 SOUND 2,449,1,i NW 
4030 SOUND 2,445, 1,i >NB 
4040 NEXT i >VD 
4950 RETURN >FC 
4960 SOUND 5, 206, 56,9 M 
4970 RETURN FES 
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eee ODavid PAVEN 
POUSSE-POUSSE 

est simple : vous 

devez reconstituer Tableau normal: 1j 

une suite de mots 

ou une image qui ï 

sont contenues dans QhaeC"Es MTS 7" rerresentations 
un tableau à Jableay, EU 


l’écran. Le tableau 
étant constitué de 
caractères mis dans 
le désordre. 

Vous remarquerez 








que, quelque soit le Éphuger Sur une 

tableau à 

reconstituer, le carré toujours vide : c’est le déplacement des 
en bas à droite sera cela qui permettra parties du tableau. 


4 REVUES POUR LES PASSIONNES 


CPC — REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certans produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 
AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD -— des programmes, 
des articles 1! A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC". 
Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux 
livres ! 

ATTENTION | Il n'y a pas d'abonnement rétroactif. 


Q CPC AMSTRAD 11 numéros 220F 
Q 6numéros 120F 
Q AMSTAR 11 numéros  140F 
Q PCompatibles Magazine 11 numéros  200F 
Q Arcades 11 numéros  200F 


NOM _____ Prénom 
Adresse 


Code postal Ville 
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Je m'abonne à : 


Merci d'écrire en majuscules. Ci-joint ur cheque libel!s à l'ordre de : Editions SORACOM. 
Service Abonnement - BP 11 - 35170 BRUZ - Retournez le(s) bulietin(s) ou une photocopie. 





w30%= 


POUSSE-POUSSE possède trois 
niveaux : dans le premier le tableau 


mesure 4*4 caractères, dans le 
deuxième 5*5 et dans le troisième 6*6. 
Chaque niveau comporte quatre 
tableaux dont 2 avec une suite de mots 
et 2 avec une image. Cela fait en tout 
six images : 

e niveau 1 : un homme à lunettes un 
peu chauve et un homme sans lu- 
nettes. 

e niveau 2 : un éléphant d’Asie et un 
avion au-dessus des montagnes. 

e niveau 3: un hippocampe et un 
panda géant. 

Toutes les informations, sur le compte 
des points et sur les deux commandes 
possibles pendant le jeu (Loupe et 
Vérification), vous seront données 
dans les instructions du programme. 


DETAILS TECHNIQUES 

Ce programme comporte deux 
routines en langage machine : 

— La première sert à lire un caractère 
à la position actuelle du curseur texte, 
et peut être réutilisée dans un de vos 
programmes en changeant simplement 
(si besoin est) l’adresse dans : LD 
(# 8007), A (C’est l’adresse où va être 
sauvé le code ASCII du caractère lu). 
La routine se lance par un CALL 
&8000. 

Ex. : Pour lire le caractère en bas à 
droite, faire LOCATE 40,25:CALL 
&8000:PRINT PEEK(&8007) 

— La deuxième routine, quant à elle, 
est plus complexe, et fonctionne 
uniquement en MODE 1 : elle sert à 
agrandir les images et se lance par un 
CALL &8020. 

e Pour la reloger, il ne faudra pas 
oublier de changer les adresses 
définies, au début du listing 
assembleur, par l’instruction EQU. 
e Pour l'utiliser, il faudra poker les 
valeurs suivantes : 

En &8010 : le poids faible de la 
coordonnée X de l’image agrandie. 


En &8011 : son poids fort. 

En &8012 : la même valeur qu’en 
&8010. 

En &8013 : la même valeur qu’en 
&8011. 

En &8014 : le poids faible de la 


coordonnée Y de l’image agrandie. 
En &8015 : son poids fort. 

En &8016 : la longueur en nombre de 
points (1 caractère = 8 points) 

En &8017 : la largeur en nombre de 
points. 


En &802A : le poids faible de la 
coordonnée X de l’image à agrandir 
En &802B: son poids fort 
(initialement X =0). 

En &802D : le poids faible de la 
coordonnée Y de l’image à agrandir 
En &802E: son poids fort 
(initialement Y = 399). 

En &8039 : l’INK du papier à 
l’endroit où est imprimée l’image 
agrandie : (mettre 4 ou plus si le 
papier n’est pas uni ou s’il est généré 
aléatoirement sinon il apparaîtra à la 
place d’une des couleurs de l’image 
agrandie). L’INK est initialement à 0. 


En &8095 : la même valeur qu’en 
&802A 
En &8096 : la même valeur qu’en 
&802B 


EXEMPLE 
Imaginons que vous vouliez agrandir 
le mot POUSSE-POUSSE situé en 








haut à gauche de l’écran X=0, 
Y =399 (= &18F) pour l’afficher aux 
coordonnées X = 96(=&60), Y = 367 
(=&16f). Le fond étant en INK O. Il 
faudra faire : 

POKE &8010,&60:POKE &8011,0 
Pour la coordonnée X 

POKE &8012,&60:POKE &8013,0 
Pour la coordonnée X 

POKE &8014,&6F:POKE &8015,1 
Pour la coordonnée Y 

POKE &8016,120 

Longueur = 15 caractères * 8 
points/car. = 120 

POKE &8017,8 

Largeur = 1 caractère * 8 = 
CALL &8020 

Lance la routine 


Les autres valeurs (position du mot 
POUSSE-POUSSE, INK du fond) 
étant les mêmes que celles initialement 
prévues, il n’est pas nécessaire de les 
poker. 








D RENNNEMNNENEEE >FA 
2 ‘#44 D.Faven ##+ ?FB 
3 ‘#4 : #44 FC 
4 '## presente  *## ?FD 
5 ‘##4 ##4 ?FE 
b ‘###  POUSSE-POUSSE #44 2FF 
THEME >F6 
8° >FH 
90 SYMBOL AFTER 126 ?N£ 


69 MEMORY &7FFF:GO0SUB 980:60SUB 157 UD 
9:LOCATE 12,12:PRINT" INSTRUCTION (0 

IN)": CALL &BBO3 

76 R$=UPPERS(INKEYS) :1F R$="" OR R$ >QY 
€>"0" AND R$£C"N" THEN 70 ELSE IFR 
$="0" THEN GOSUB 1920 

89 MODE 1:PRINT CHR$(19)+"-Veuillez EF 
entrer votre nom(i2 caracteresau a 
aximum) :“:PRINT:CALL &BB93: PRINT" -—- 
=)" ss NOMS=" "I Ng=U" 

90 N$=INKEYS$: IF N$="" THEN 90 > 
160 IF ASC(N$S)=127 AND NOM$<>"" THE MY 
N PRINT CHR$(8)+" "+CHRS (8) : : NOMS$=L 
EFTS$ (NOMS, LEN (NOMS) -1) :GOTD 90 

119 IF ASC(N$)=127 AND NOM$="" THEN >AZ 
PRINT CHR$(7)::G0T0 9% 

120 IF ASC(N$)>13 THEN NOMS=NOMS+N HZ 
$:60T0 139:PRINT N$; ELSE 149 





136 IF LEN(NOMS)>12 THEN PRINT CHR$ :LG 
(7) 3 : NOM$=LEFT$ (NOMS, LEN (NOMS) -1):6 

OTO 96 ELSE PRINT N$::G0T0 9ù 

149 CLS:NOMS=UPPERS (NOMS) :NOM1$="E; FC 

envenue “+NOM$: XzINT ((40-LEN(NOM1$) 
)/2):LOCATE X,12:PRINT NOM1$:FDR A= 

1 TO 3096: NEXT À 

145 IF GRILLEÿ=3 THEN CHAINES$="": F0 AH 

R A=i TO FIN“2-1:READ CH: CHAINES=CH 
AINES+CHR$ (CH): NEXT A:GOSUB 11964: 60 

SUE 719:G0T0 i6ô 

150 CHAINES="":FOR A=1 TO FIN:READ AW 
LIS$ (A) : CHAINES=CHAINES+LIS (A) : NEXT 
A:GOSUB 1199:G0SUB 719 

16 FOR A=1 TO LENCCHAINES) :C$=MID$ 
(CHAINES, À, 1) 

176 X=INT (RND#F IN) +1 : Y=INT (RND#F IN) 
+1:1IF X=FIN AND Y=FIN THEN 176 ELSE 
LOCATE X,Y:CALL 58009 | 

189 IF PEEK(&8007)=32 THEN PRINT C$ >TM 
::NEXT A ELSE 170 
190 X=FIN:Y=FIN: INK 1,24: INK 2,26:1 >QC 
NK 3,0:CLS #1 

269 PRINT CHR$(7)::EVERY 59.3 GOSUB >FN 
749 

219 R$=INKEYS: IF R$="" THEN 210 >XZ 


Le 


se 


RU 


>1Y 


ue 


226 IF R$=CHR$ (241; THEN Y=Y-1:605Ù : 


B 559 ELSE 250 


236 IF DEPLACE=] THEN GOSUB 374 ELS : 


E Y=Y+i 
249 GOTO 216 


250 IF R$=CHR$(246) THEN Y=Y+1:60SÙ > 


B 556 ELSE 289 


269 IF DEFLACE=1 THEN GOSUE 419 ELS >JY 


E Y=Y-1 
276 GOTO 219 


286 IF R$=CHR$ (242) THEN x=X+1:G606Ù ? 


B 556 ELSE 319 


294 IF DEPLACE= THEN GOSUB 456 ELS ; 


E X=X-1 

309 GOTO 219 

316 IF R$=CHR$(243) THEN X=X-1:605U 
E 559 ELSE 349 

326 IF DEPLACE=1 THEN GOSUE 494 ELS 
E X=X+1 

336 GOTO 214 

346 IF UPPERS(R$I="V" THEN GOSUB 58 
4 


350 IF UPFERS(R$)="L" THEN GOSUB 15 


Ba 

364 GOTO 216 

370 ‘#44 BAS +44 

386 GOSUE 536 

399 LOCATE X,Y:PRINT " 
Y+1:PRINT CHRS (CHAR) ; 
460 RETURN 

416 ‘xxx HAUT #44 

420 GOSUR 530 

436 LOCATE X,Y:PRINT " 
Y-1:FRINT CHR$ (CHAR) : 
449 RETURN 

459 ‘x## GAUCHE ##4 
464 GOSUB 536 

474 LOCATE X,Y:PRINT " 
1,Y:PRINT CHR$ (CHAR) ; 
486 RETURN 

496 ‘##+ DROITE ### 
006 GOSUB 539 

319 LOCATE X,Y:PRINT " 
1,Y: PRINT CHR$ (CHAR) : 
929 RETURN 

50 ‘+## FREND CARACTERE ### 

944 LOCATE X,Y:CALL 88000: CHAR=PEEK 
(28907) : RETURN 

J04 ‘#44 DEPLACEMENT VALIDE % ##4 
960 DI:IF X£1 OR FIN OR Y£1 OR V> 
FIN THEN LOCATE #3,9,1:PRINT #3,CHR 
$C7)+CHR$(24)+" Deplacement INTERDI 
T "4CHR# (24) : : DEPLACE=0: ET : RETURN 


“stLOCATE X- 


576 LOCATE 43,9, 1:PRINT#3, CHRS (24)+ 


" Deplacement correct. "+CHR$(24):: 
DEPLACE=1 : COMPTEUR=COMPTEUR+1 : POINT 
=POINT-1:LOCATE #2, 1,2: PRINT#2, COMP 
TEUR:E I: RETURN 


"stLOCATE X, : 


“itLOCATE X, : 


“stLOCATE + : 


MC 
FR 


2] 


YF 
?CM 


Æ 


TA 


086 ‘#44 VERIFICATION ### 
909 LIGNES="":LIS(FIN)=LIS(FIN)+" * 
:FOR E=1 TO FIN:FOR A=1 TO FIN:PDKE 
&8064,kb+A:LOCATE AÀ,B:PEN 3:CALL % 
BOG:NEXT À 
669 FOR C=88007 TO kB697+(FIN-1):LI 
GNES=LIGNES+CHRS (PEEK (C) ):NEXT C 
619 IF LI$(B)=LIGNES THEN LIGNE#="" 
!NEXT B:POKE 48664,87:LI$CFIN)=LEFT 
$(LIS(FIN),FIN-1) ELSE POKE 28464,8 
TiLIS(FINISLEFTS (LIS(FIN) ,FIN-1) : 6 
T0 ééè 
626 LOCATE#1,8,1:PEN#1,0:PRINT#I,RE 
MAINCZ} : : SCORE=SCORE+FOINT-(M#19):F 
EN #1,1:LOCATE#1, 1,7: PRINT#1,CHR# (2 
4)+" BRAVO "+CHR#(24)+", "4NOMS+" ! 
IL PRINT#I, "Vous avez reussi a refo 
rmer le tableau. ":NI=3:N2=5: ATT=568 
6:G0SUB 1656: GO0SUE 686 
630 CHDIX$=INKEYS$: IF CHOIX$="" THEN 
634 
64% IF CHDIX$="1" AND GRILLE=4 AND 
NIVEAU=3 THEN GOTO 1256 ELSE IF CHD 
IX$="1" AND GRILLE=4 THEN NIVEAU=NI 
VEAU+1:GRILLE=1:FIN=FIN+]:GOSUB 157 
9:60SUB 690:60T0 145 ELSE IF CHOIXS$ 
="{" THEN GRILLE=GRILLE+1:G0SUB 694 
:GOTO 145 
696 IF CHOIK$="2" THEN GOSUB 986:60 
SUB 1576:60T0 89 ELSE IF CHOIX$="3" 
THEN GOTO 1754 ELSE 638 
666 PEN #1,1:LOCATE #1,1,7:PRINT #1 
"Vous n'avez pas de chance,ce n'es 
t pas cela.":60SUB 1769:G0SUB 684 
674 CHOIX$=INKEYS$: IF CHOIX$="" THEN 
679 ELSE IF CHOIX$="1" THEN CLS #1 
RETURN ELSE IF EHOIX$="2" THEN LOC 
ATE#1,8, 1:PEN#1,9:PRINT#1,REMAIN(S) 
::G0SUB 980:G0SUE 1570:G0T0 86 ELSE 
IF CHOIX$="3" THEN GOTO 1756 ELSE 
670 


686 PRINT#i:PRINT#1, "Voulez-vous: ": ; 


PRINT#1:PRINT#1,"1) Continuer":PRIN 
T#1,"2) Recommencer":PRINT#1,"23) Ar 
reter“:RETURN 

699 ‘##x INITIALIGATION 1 #44 

700 MODE 1:INE 1,1:INE 2,1:INE 3,1: 
WINDOW #6,41-FIN,40,1,FIN:PAFER 2:P 

EN S:CLS:WINDOW #1,1,40,7,23:WINDOH 
#2,1,34,1,6:WINDON. #3, 1,46,24,25:R 

ETURN 

716 ‘###x INITIALISATION 2 ### 

726 CLS:CLS#1:CLS#2: LOCATE #2,1,1:P 
RINT#2, CHR$ (241 +" COUPS: “+CHR$ (24) :P 

RINT#2," Q":PRINT #2,CHR$ (24)+"TEMP 
Gi "+CHR$ (24) :PRINT#2," 9: 0":POINT= 
1900: S=0: M=û: COMP TEUR=9 

730 RETURN 





?TD 
LA 


a 


2PM 


?EN 


AN 


36R 


AV 


#WY 


JR 


Ca 


?TF 
3YL 


# 


AJ 
YU 


el 


IT 


740 ‘xx ECOULEMENT TEMPS #44 

750 5=5+1:1F S=60 THEN S=0:M=M+1 
76ù LOCATE #2,1,4:PRINT #2, USING "4 
H' sm; PRINT #2, "2": PRINT #2, USING 
“#H':Gi: IF M=30 THEN RUN 

770 RETURN 

780 ‘### DATA ROUTINE MACHINE ##4 
79 DATA CD, 66, BB, 32, 7,80, C9 

890 DATA 3A,17,80,47,3A, 16,80, C5,F5 
,11,9,9,21,8F,1,05,E5,E1,D1,D5,E5,C 
D,F0,BB,FE, 6, 28,31, CD, DE, BE, ED, SE, 1 
6,86, 2A, 14,80, CD, CD, BB, 11,0,0,21,06, 
ô,CD,ED,EE,11,2,0,21,0,0,CD, ED,EE, 
11,0,0,21,FE,FF,CD,ED, BB, 11,FE,FF, 2 
1,6,6,CD,ED,BB,ED,5B, 19,80, 13, 13,13 
13 

819 DATA ED,53,10,80,E1,D1,F1,C1,FE 
,128,9,30,C5,F5,13,13,05,E5, 18,47, 
78,FE, 1,C8,5,C5, 3A,16,80,F5,11,0,0, 
D5, 28, 2B,E5,ED,5B, 12,80, ED, 53, 19,80 
2, 14,80, 28, 26, 28, 2B, 22, 14,80, 18,8 
2,0 


836 ‘#44 DATA POUSSE-POUSSE 444 ##4 


840 DATA BUSE, GRUE, IBIS,OIE 

856 DATA LOIR, MARA,FIKA, RAT 

860 DATA 127,128, 129,130,131,132,13 
3,134,135,126, 137,138, 139, 149, 141 


870 DATA 143, 144,145, 146, 147,148, 14 : 


9,150,151,152, 153,154, 195, 156, 157 


880 ‘### DATA POUSSE-FOUSSE 545 ### : 


89% DATA ARGON,AZOTE,ETAIN, PLOME, ZI ; 


NC 


998 DATA CYGNE,HERON, HIBOU, POULE. RA : 


LE 


919 DATA 127,128,129,134,131,132,13 : 


3,134,135,136, 137,138, 139,149, 141,1 
42,143,144, 145,146, 147, 148, 149, 156 


926 DATA 152,153,154, 195, 156, 157,15 : 


8,159, 16ô, 181,162, 163, 164,165, 166, 1 
67,168, 169, 170,171,172,173,174,175 


920 ‘*### DATA POUSSE-POUSSE 6*6 *### 


FN 

940 DATA CHLORE, CUIVRE, NICKEL, SOUFR 
E, TITANE, KENON 

950 DATA COFFRE, DIODON, GARDON, GOUJO 
N, SAUMON, TETRA 

960 DATA 127,128,129,130,131,132,13 
3,134,135,136, 137,138, 139,140, 141,1 
42,143,144,145, 146, 147, 148, 149,150, 
151,152, 153, 154,155, 156, 197, 158, 199 
160,161 

970 DATA 163, 164,165, 166, 167,168, 16 


9,179,171,172,173,174,175,176, 177,1 


78, 179,180, 181,182, 183, 184, 185, 186, 
187,188, 189, 199,191, 192, 193, 194,199 
,196, 197 





TE 
16 
AD 


na 


?ZK 
3TF 
?VG 
AC 


3YM 


TB 


2XR 
XP 
2Lk 


ps 
= 


ps 
Æ 


— 
œ 


16 


#1 


ZA 





986 ‘xx# MISE À ZERO ##+ 


>TH 


998 RESTORE 796:F0R A=kB00Ë TD 606 AT 


bi READ Vé: V=VAL CR 4V$) :POÈE AVI NE 
XT:FOR A=8029 TO RBOAF:READ V$:V=V 
AL("R"4US) :POKE A,V:NEXT:POKE 88419 
BG: POKE 48011,9:POKE 48613, 8@:POKE 
20013,0:FOFE RB014,26F:POKE 28615, 
1:POKE 28016, 120:FOKE 48017, 16:FOKE 
ÿB479,0 

1909 RESTORE 849:RANDOMIZE TIME:FIN 
=4:NIVEAU=i:GRILLE=1:MODE 1:CALL BE 
CU2:PEN 1:PAPER 8 

1914 RETURN 

1924 ‘4x PRESENTATION #44 

1934 MODE 1:INE 1.1:PEN 1:PRINT® FD 
USSE-FOUSSE es PRINT" 
“:CALL 28920: LOCATE 1,25:PRINT:PRIN 
T:PRINT:LOCATE 1,4:INE 1,24 

1446 LOCATE 12,5:FRINT" (Par David F 
AVEN) ":WINDOW #1,1,46,1,3:WINDDH 1, 
46,6,25 

1958 LOCATE 1,2:FRINT"-POUSSE-FOUSS 
E est un jeu ou vous devez reforme 
r des mots puis des images en ut 


ilisant les fleches comme suit: ":FR ÈS 


INT TAB(2),CHR#(241)+":Deplace ver 
5 le bas le caractere situe a 
u dessus du carre vide." 
1968 FRINT TAB(2),CHR#(246)+":Cepla 
ce vers le haut je caractere 
situe au dessous du carre vide.":PR 
INT TAB(2),CHR#(243)+":Deplace ver 
5s la droite le caractere situe a 
gauche du carre vide." 
1976 PRINT TAB(2),CHR#(242)+*:Depla 
ce vers la gauche le caractere 
situe a droite du cârre vide.":G60SU 
BE 1178 
1480 CLS:LOCATE 1,2:PRINT"-I1 y a 
trois niveaux differents:Dans le 
premier niveau, les tableaux mesuren 
t 4#4 caracteres,dans le deux1eme 
9*5 et dans le troisieme 6#6.":LOCA 
TE 1,7:PRINT"-Chaque niveau compor 
te 4 tableaux:Dans les 2 premiers y 
ous devez" 
1998 PRINT CHR$(11)+STRINGS (26, CHR 
(9))+" reconstituer des mots et 
dans les 2 suivants vous devez rec 
onstituer des 1mages.":LOCATE 1,12: 
FRINT'-Au debut de chaque tableau, | 
‘ordinateur vous donne iëä4 points 
mais il vous en“; 
1196 PRINT “ enleve 2% toutes le 
s minutes et 1 a chaque deplace 
ment (c'est largement suffisant) .À 
pres chaque tabieau votre AMSTRAD 
ajoute ce qui reste de ces po 


3WV 


SEF 
XF 
+aM 


36F 


DC 


FX 


26L 


3LN 


JA 


ur 


RG 





ints a ceux qui ont ete precedemme 
nt obtenus (enfin esperons !!)." 
1119 GOSUB 1170 


WE 


1129 CLS:LOCATE 1,2:PRINT"-Quand v >QU 


ous pensez avoir entierement rec 
onstitue un tableau verifiez-le e 
n appuyant sur ‘V°, votre AMSTRA 
D vous dira alors si c'est correct 
ou non.Dans": 

1136 PRINT" les deux cas vous aure 
2 alors le choix entre: ":PRINT, 
-i:Continuer:Soit vous poursuivez 
la reconstitution du tableau 501 
t vous passez au tableau suivant." 


1146 PRINT," 
rejouez depuis le debut.":PRINT," 
-3:Arreter:À n'utiliser qu'au bord 
de la depression nerveuse, ":GOSUE 
1176 

1156 CLS:LOCATE 1,Z:FRINT"-Pour vo 


-2:Recommencer: Vous 


us aider a reconstituer les ima 
ges.une fonction loupe est prevue 
: En appuyant sur ‘L'une image deu 
* fois plus grosse apparaitra.Elle 
sera munie d'un cadrililage qui 
vous sera tres utile." 


1164 LOCATE 9,11:PRINT'ET MAINTENAN 4 


T ALLONS-Y !!':GOSUB 117:RETURN 
1176 LOCATE 9,26:PRINT CHR$(24)+" À 
ppuyer sur une touche "+CHR$ (24) 
1186 CALL BBBOZ:CALL 2BBGb: RETURN 
1198 ‘#44 GRILLE À RECONSTITUER ### 


1206 GOSUB 696: X=1:Y=1:FOR A=1 TD L 


w533% 


JG 






>FA 


:TA 


3YD 


>0J 


ENCCHAINES) :C$=MIDS$ (CHAINES, À, 1) 
1216 LOCATE X,Y:PRINT C$isX=X+i: IF 
XFIN THEN X=1:Y=V+1 
1229 NEXT 
1230 INK 1,24: INK 2,26:INK 3,6:CLS# 
2:CLSHI1: PEN #2, 1: PRINT#2,CHR$ (241 +" 
Votre score: "+CHR$ (24) : FRINT#2, SCOR 
ES PEN #1,1:LOCATE #1,1,1:FRINT#1,"- 
Observez bien ces deux representat 
ions avant de continuer."::PEN #2,1 
{LOCATE #2,19, 1: PRINT#2, "Tableau no 
rmal:": 
1249 GOSUB 1580:INE 1,1:INK 2,1: INK 
3, 1:CLS:CLS#1: CLS#2: CLS#3: RETURN 
1258 ‘##4+ GAGNE #44 
1264 PRINT#S,REMAIN(3):MODE 1: PAPER 
G:PEN 1:LOCATE 1,2: PRINT"-BRAVO, va 
us ete un champion “+NOM$+":"eNisi: 
N2=15:A56=7200: GOSUB 1656: PRINT:FRI 
NT" Vous avez reussi a reconstituer 
les {2 representations. ":PRINT 
1274 PRINT" Il ne vous reste qu un 
e chose a faire, c'est d'ameliorer 
votre score: “; SCORE: PRINT: FRINT"U 
oulez-vous 1) Arreter ou 2) recomme 
ncer":CALL &BB6T 
1284 R$=INKEVS: IF R$="" OR (R$<5 "1" 
AND R$<:"2") THEN 1286 ELSE IF R$= 
"1" THEN 1756 ELSE GOSUB 986: GOSUE 
1579:G0T0 86 
1296 ‘### REDEFINITION DE CARACTERE 
G ##+ 
1309 ‘### HOMME À LUNETTE SANS CHEV 
EUX ##+# 
1319 DATA 4,0,6,0,1,3,3,6,0,63,64,1 
28,128,0,0,6,09,248,4,2,1,0,0,0,0,0, 
6,9,128,192,224,96, 6,14,14,14,14,9 
17,9,9,9,0,30,63,94,78,66,4,0,0,15, 
31,238,229,161,112,113,112,112,24, 
224,806,80,9,b AS à,0,1,68,33,30 
1326 DATA 0,6,131,196,193,162,31,6, 
224,6,240,8,225,86,160,64,64,b4,64, 
128,0,3,7,11,19,99,129,1,1,224,112, 
06,28,15,135,128,128, 2,2,5,9,241,2 
41,1,1,0,0,6,128,64,48, 12,2 
1336 ‘### HOMME SANS LUNETTE AVEC D 
ES CHEVEUX ### 
1346 DATA 0,6,1,3,7,15,15,15,63,127 
,299, 299, 299, 299, 299, 299, 249, 248,2 
2,254,299,299,255, 295,0,9,0,0,0,1 
28,128,192,31,31,31,15,15,31,31,15, 
255,255,244,128,6,0,6,249,199,7,7,7 
,27,97,129,176,224,224,224,224,224, 
224,224,224,15,15,15,7,3,3,1,0,1B0, 
d2,4,4,4 


1350 DATA 132,131,128, 48, 0,0, 32,16, 


136,0,0,144,144, 144, 160, 16, 64,84, 1 
28,0,0,0,0,0,0,3,15,71,34,35,17,24, 


?BC 


KG 
DT 


?T2 


er 


#YA 
3WE 


:UA 


?EF 


VE 


?X6 


#W 


2NU 


3kk 


3FL 
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252, 254,295, 241,33, 227,195,7,15,31, 
255,0,0,0,0,0,0,0,0,0 

1360 ‘tx ELEPHANT D'ASIE SE PROMEN 
ANT ##4 

1370 DATA 4,0,6,0,1,6,4,5,0,0,0,0,2 
55,92, 118,97,0,0,0,31,224, 128, 128,2 


,48,24,8,24,19,19,16, 16, 16,32, 209, 1 
2,0,1,79,103, 127,255, 160,194, 194,20 
2,201,145,144,144,0,0,0,0,0,1,194,0 
,12,14,42,70,70,134,b,6,39,46, 124,5 
2,36,36,36 

1380 DATA 36,63,15,3,3, 746, 14,14, 12 
,75,132,167,63,15,56, 16,0, 1,2, 4, 196 
,252,62,31.6,6,10,15,15,15, 22,8, 52, 
26,10,15,7,56, 127,255, 15,14, 14, 267, 
20b,227,63,254, 16, 160,96, 160,39,63, 
31,159,31,31,15,15,15, 255, 295, 255, 2 
32,152, 164,196, 136,200, 168, 240,255, 
255, 127 

1390 DATA 127,63, 15,0,0, 255,295, 255 
255,255, 255, 0,0, 255, 255, 255, 295, 25 
5,255, 0,0, 255, 255,254, 254, 252, 249, 0 
1490 ‘#4# AVION SURVOLANT DES MONTA 
GNES #44 

1419 DATA 0,0,9,9,9,0,0,0,0,0,D, 0,0 
19,0,0,0,0,0,0,0,0,1,7,0,0,0,0,48,2 
40,224,192,0,0,0,0,0,0,0,224,0, 0,0, 
0,15,31,15,0,0,0,0, 7,255, 255, 255,3, 
127,63, 126,252, 255, 255, 255, 240, 128, 
1,3,7, 295, 295, 252,0, 224, 224, 248, 240 
,224,224,96,0,0,0,0,0,0,0,0,0,1,7,0 
,9,0,0,0,0 

1420 DATA 248,252, 62, 247,3,0,0,0,0, 
6,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
19,9,0,0,0,0,0,9,0,9,0,0,0,4,0,0,9, 
0,0,0,3,0,0,0,0,0,0,0,128,0,0,0,D,0 
,0,0,0,0,0,0,0,0,0,15,21,0,0,31,53, 
196, 213,235, 215, 126, 213, 170,85, 171, 
215,175, 223, 224,88, 174,87,170,213, 1 
71,87,0,7 

1430 DATA 26,245, 171,87, 170,213 
1449 ‘xtx HIPPOCAMPE (CHEVAL DE MER 
À ##4 

1450 DATA 4,0,0,0,0,0,0,D,D,0,0, 12, 
11,24,15,0,5, 13,54, 56,217, 1,242, 29, 
40,240, 204, 178, 156, 108, 47, 198,0,0,0 
,9,9,0,0,44,0,0,0,0,0,0,0,0, 48,68, 1 
24,68,68,0,16,16,0,0,0,0,0,1,2,2,7, 
3,29,119,140,82,41,165, 31,228, 183,7 
4,253, 158, 208,96, 128,0,128,0,0,0,0, 
0,62, 32,32 

1465 DATA 32,62,0,82,34, 16, 16, 16,0, 
124,68,124,64,6,5,4,7,5,5,3,3,87,20 
103,193, 223, 177,207, 185, 255, 126, 25 
4,254,252, 252, 252, 248,0,0,0,0,0,0,0 
19,62, 34,34,0,34,54,42,34,64,0,124, 


3YC 


er 


>NF 


>FN 


?BD 


La 


2XH 


ML 


>HM 


>X] 


.3YB 


me" 


2NF 


LU 


48,124,64,64,0,2,3,3,7,3,1,0,0,239, 
3,247,164,159, 139,133, 2,248, 120,74 
0,176, 144 


1476 DATA 128,96, 166,0,0,0,0,0,0,0, ? 


0,34,0,62,34,62,32,32,0,124, 48,68, 

68,124,6,0,0,0,0,0,0,0,0,0,0,1,0,0, 
0,0,0,0,0, 80, 248,88, 104,52, 60, 34, 28 
,0,0,4,0, 0,9,0,0,82,32,60,32, 62,0, 


7,15,13,11,5,7,0,0, 148, 156,52, 232, 
Bû, 224,0, 0 
1489 DATA 0,9,0,0,9,0,0,0,0,0,4,0,0 
,0,0,0,0 
1490 ‘#44 PANDA GEANT: SYMBOLE DE SA 
UVEGARDE #44 
1509 DATA à,65,45,65,65, 125,6,0,9,2 
4ù,8,224,0,249,0,0,0, 62,34, 62, 32,32 
19,1,9,250, 139,250, 138, 138,0, 128,0, 
47,40, 168, 104,47,0,0,0, 62, 162, 198,1 
62,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 
,24,8,3,3,21,110, 192,56, 112, 224,19 
2,192,254,3,1,0,0,0,0,0,0, 224, 249,2 
49,224,64 
,0,0,0,8,16,16,18,17,17,19,27,224,2 
25,227, 243, 251,252, 254, 255, 0, 192, 70 
,206, 10,14, 102, 145,64,32,32, 32,48, 1 
12,248,248,0,0,0,0,0,0,0,0,0,0, 0,0, 
0,0,0,0,63,63,63,63,63, 62,62, 28,255 
,255, 255, 255, 255, 255, 255, 127, 295, 29 
5,255, 129 
1529 DATA 129, 131,227, 247, 248, 248, 2 
48,248, 248, 248,249, 240, 0,0,0,0, 0,0, 
0,0,8,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0 
,63,31,7,0,148,150, 149, 148, 247,243, 
224,0, 128, 128, 128, 128,224, 192, 0,0,0 
,2,9,0,8,0,6,0,0,0,0,0,D,0,61, 32, 60 
,4,60,0,0,0, 20, 166, 69,68, 6840, 244,0 
,92, 216,94 
1539 DATA 82,92,0, 128,0, 244, 148, 148 
,148,247,0,0,0,40,32,5b,32, 188,0.0, 
ô,0,0,0,0,0,0,0 
1540 RESTORE 1319:SY=127:FOR IM=1 T 
0 2:FOR N=1 TO 128 STEP B:READ AE, 
C,D,E,F,6,H:SYMBOL SY,A,B,C,D,E,F,G 
HiSY=SV+1:NEXT N:RESTORE 1340:NEXT 
IM:RESTORE 830: RETURN 
1550 RESTORE 1376:SY=127:FOR IM=1 T 
0 2:FOR N=1 TO 200 STEP B:READ AB, 
C,D,E,F,6,H:SYMBOL SY,A,B,C,D,E,F,G 
HiSY=SV#1:NEXT N:RESTORE 1410:NEXT 
IM:RESTORE 890: RETURN 
1560 RESTORE 1450:SY=127:FOR IM=1 T 
0 2:FOR N=1 TO 200 STEP 8:READ AE, 
C,D,E,F,6,H:SYMBOL SY,A,B,C,D,E,F,6 
Hi SY=SY+1:NEXT N:RESTORE 1506: NEXT 
IM:RESTORE 940:RETURN 
1570 ON FIN-3 GOSUB 1540, 1550, 1540: 





:GR 


2YG 


KG 


ms 


nr 


2NN 


*JH 


:MB 


La 


MD 


M 


2JN 


RETURN 

1580 ‘#44 LOUPE #44 

1599 POKE 86616, (638-FINx232) /2:POKE 
&8011,9:FOKE 48012, (638-F IN#32) /2: 

POKE 88013,0:POKE #8014,8FE:POKE 88 
919,0:POKE #8016,FINXB:PÜKE 8B617,F 
INXB:POKE 8B02D,&BE:POKE &802E, 1:F0 
KE 2802A,846-(1b#(FIN-4) ):POKE 4802 
E,2:POKE 86939,2 


1609 POKE 88495,%49- (16% (FIN-4) ):P0 K 


KE 28096, 2 


1614 WINDOW #4,20-FIN+1,28+F IN, 18,9 à 


+FIN#2: PAPER #4,2:CL5#4:CALL 88020 


1626 C=(638-FIN#32) /2:FOR Az TO 22 : 


#FIN STEF 232: MOVE C+A,254:DRAMR 0, - 
FIN#33,3:MOVE C,254-A: DRAWR FIN#32, 
G:NEXT À 

1634 LOCATE #1,1,4:FEN #1,1:FRINT#I 
."Tableau":PRINT#I, "agrandi: ":LOCAT 
E #3,2,1:PRINT#3,CHR$(24)+" Appuyer 
sur une touche pour continuer “+CH 
R$(24) :CALL LEBO3 

1648 R$=INKEYS: IF R$="" THEN 164 E 
LSE WINDOW #1,1,4û,7,23:CL6#1:CLS#: 
RETURN 

1650 ‘### AFPLAUDISSEMENTS NOURRIS 
#44 

1664 FÜR I=N1 TO N? 

1676 SOUND 5,35,204,15-1,4,4,31 

1686 NEXT:FOR N=1 TO ATT:NEXT N 
189% RETURN 

1704 #4 PERDU #44 

1718 ENV 1,15,-1,19 

1728 ENT -1,14,4,1,1,-26,1 

1734 SOUND 2,806,0,15,1,1 

1748 RETURN 

1750 ‘#44 FIN #44 

1766 PRINT CHR$(7): :PRINTH#S,REMAIN( 
3): MODE 1:PAPER G:FEN 1:LOCATE 13,1 
1:PRINT CHR$(24)+STRINGS (14," "}+CH 
R$(24) :LOCATE 13,12:PRINT CHR$(24)+ 
“ Au revoir !! "+CHR$(24):LOCATE {3 
13: PRINT CHR$ (24) +STRINGS (14, "+ 
CHR$ (24) +STRINGS (19, CHR$ (16) à : RESTO 
RE 1800 

1765 FOR ATT=1 TO 166G:NEXT ATT 
1770 READ PERIODE, DUREE 

1786 IF FERIODE‘>-1 THEN SOUND i,PE 
RIODE, DUREE: SOUND 2, PERIODE+2, DUREE 
:SOUND 4,PERIODE+2,DUREE ELSE END 
1798 GOTD 1776 

1806 DATA 638,69,478,85,0,5,478,25, 
9,5,478,60,379,66,426,99,478, 39, 426 
.69,379,60,478,85,0,5,478, 39,379, bû 
,319,69,284,175,0,5,284,66,319,90,3 
79,25,0,5,379, 66,478, 66,426,96, 478, 
36,426, 66,379,69,478,90,568,25,0,5, 
168, 69, 638,60,478,120,-1,-1e 


3Ÿ6 
3 


AH 


CF 


VE 


2ML 
3WK 
?IT 
2FE 
FYÀ 
LR 
2RY 
>RG 
FF 
2YF 
>UT 


Da 


D 
TX 
>1h 


èNE 
JV 


NS] 22 012112101028 3 AU LE 


PAR LA LECTURE 


AMSTAR 


Mensuel informatique 
vendu en kiosque et 
par abonnement. 
Présentation de jeux 


et nouveautés sur Amstrad. 


Tous les mois un concours | 





CPC 


Mensuel informatique 
dédié aux ordinateurs 
Amstrad 








MEGAHERTZ 
MAGAZINE 





Mensuel de 
communication amateur 
actualités, informatique 
technique. 











VIVEZ LA MICRO EN FAMILLE 


Toutes nos revues 
sont vendues en kiosque. 











IMARIAGE ASTROLOGIQUE 


VFRAMS-MACONE 
LA RIPOSTE / 


Dossier: 
faites vous-même 





ARCADES 


Mensuel informatique et 
communication vendu en 
kiosque et par 
abonnement. 
Présentation de jeux, 
nouveautés, sur toutes 
machines, consoles de 
jeux et minitel. Concours 
mensuel permanent. 


CPC HS 


Numéro hors-série 
comprenant uniquement 
des listings sur Amstrad. 
Paraît tous les deux mois, 


PCOMPATIBLES 
MAGAZINE 


Mensuel informatique 
consacré aux ordinateurs 
compatibles. Actualité, 
technique, listing. 


ASTROLOGIE 
PRATIQUE 


Mensuel d'astrologie (et 
non de voyance). Outre 
l'information, les thèmes 
développés touchent à 
la pratique sérieuse de 
l'astrologie. 


Si vous souhaitez recevoir un exemplaire de presse, envoyez 20 F en timbre ou chèque à : 
| Editions SORACOM - La Haie de Pan - 35170 BRUZ. 


















BOFFES DE 
RANGEMENT 
MEDIA BOX 
POSSO 


COMPACT 


Pour 13 compact | 


par Boîte 7 F en plus 











DISC 


Pour 9 cassettes | 
vidéo VHS, V2000 | 










: Beta 
discs 












Port 25 F 
Recommandé facultatif 


Port 25 F 
Recommandé facultatif | 
par Boîte 7 F en plus | 











à 150 disquettes | 








3", 3" 1/4, 3" 12] 
DISQUETTES di CASSETTES 
| ca _ par Boîte 7 F en plus | AUDIO | 






















Pour 50 
à 70 disquettes | 


a] 7757 
DISQUETTES … 25 


p" 1/4 Recommandé facultatif 


par Boîte 7 F en plus 
+ Boîte DATA Case 51/4 (50 disk) 
10 disquettes D F D D 5"1/4 
Votre petit cadeau surprise gratuit 


Pour 
16 minicassettes 


95 F 


Port 25 F 
Recommandé facultatif 
par Boîte 7 F en plus 

















120F 


+ 
Port et emballage 25 F 





d'une valeur de 50 F 
Total Lot 145 F 
- 1 Boîte DATA Case 3"1/2 (40 disk) 260 F 
10 disquettes D F D D 3°172 + 
Votre petit cadeau surprise Port et emballage 25 F 
d'une valeur de 50 F 


Total Lot 285 F 
A D 
+ 1 Boîte DATA Case 3" (20 disk) 340 F 

10 disquettes MAXELL D F D D 3° + 
Votre petit cadeau surprise Port et emballage 25 F 
d'une valeur de 50 F - 


Total Lot 365 F 





+ Boîte DATA Case seule 
3" 31/2 5"1/4 


85F+15F Port 
et emballage 


100F 















Forlait de port + emballage 


Recommandé (facuhkatif) 





(écrire en majuscules) 

















